составьте массив a от 1 до 100 с помощью генератора случайных чисел с элементами от -7 до 7. выведите на экран, подсчитайте количество чисел равных 5
Ответы на вопрос
Ответил БезГоловы2
0
var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
end.
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
end.
Ответил Lid333
0
я бесконечно признательна, спасибо большое!!!!!!
Ответил Lid333
0
увы, боюсь, отчислят
Ответил Lid333
0
хорошо, спасибо
Новые вопросы