Информатика, опубликовано 2018-08-22 23:53:08 by Гость
Составьте программу которая заполняет массив B[1..16]случайными целыми числами в диапозоне от -10 до 20 и определяет колличество чисел кратных 5 и их
Ответ оставил Гость
Var
B:array[1..16] of integer;
k, i: integer;
begin
for i:=1 to n do begin
a[i]:=random(-10,20);
if (a[i] mod 5)=0 then begin
writeln(a[i]); writeln(i); end; end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.