uses crt; var i,s:integer; a:array[1..15] of integer; begin s:=0; for i:=1 to 15 do begin a[i]:=random(100)+0; if a[i] mod 7 = 0 then s:=s+a[i]; end; writeln('suma = ',s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
