составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и подсчитывает количество отрицацельных элементов
Ответы
Ответ дал:
0
PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)
var
a:array[1..16] of integer;
begin
var s:=0;
for var i:=1 to 16 do
begin
a[i]:=random(-20,20);
write(a[i]:5);
if a[i]<0 then s+=1;
end;
writeln;
Writeln('Кол-во отрицательных чисел в масиве: ',s);
end.
Версия 3.3. сборка 1583 (25.11.2017)
var
a:array[1..16] of integer;
begin
var s:=0;
for var i:=1 to 16 do
begin
a[i]:=random(-20,20);
write(a[i]:5);
if a[i]<0 then s+=1;
end;
writeln;
Writeln('Кол-во отрицательных чисел в масиве: ',s);
end.
Вас заинтересует
2 года назад
8 лет назад
8 лет назад