Question

СРОЧНО! 1 ЗАДАЧА ПО ИНФОРМАТИКЕ!

Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.

Answer 1

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.

Answer 2

Не то, но всё равно спасибо.

Answer 3

Всё по заданию. А что именно не так?

Answer 4

Да там выяснилось, что не в виде программирования нужно делать, но спасибо за отклик всё равно.