Задание1 : var i,t:integer; a:array[1..7] of integer; begin randomize; for i := 1 to 7do begin a[i] := round( random(17)-7 ); write(a[i]:3); end; t := 0; for i := 1 to 7 do if a[i] < 0 then inc(t); writeln; writeln(t); readln; end. Задание 2:
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку