Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Найдите количество элементов целочисленного массива , заканчивающиеся цифрой 3 . паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar i,s: integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(13)+1;
if (a[i]=3)or(a[i] mod 10 = 3) then s:=s+1;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы