СРОЧНО! 1 ЗАДАЧА ПО ИНФОРМАТИКЕ! Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.
СРОЧНО! 1 ЗАДАЧА ПО ИНФОРМАТИКЕ!
Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array [1..12] of integer;
i,s:integer;
begin
writeln('vvedite 12 chisel');
for i:=1 to 12 do
readln(a[i]);
writeln('massiv');
for i:=1 to 12 do
write(a[i],' ');
writeln();
for i:=1 to 12 do
if abs(a[i])>15 then s:=s+1;
writeln('kolichestvo elementov = ',s)
end.
Не нашли ответ?
Похожие вопросы