ЗАПОЛНИТЬ ОДНОМЕРНЫЙ МАССИВ СЛУЧАЙНЫМИ ЦЕЛЫМИ ЧИСЛАМИ ОТ -15 ДО 15 . ВЫЧИСЛИТЬ СУММУ ЭЛЕМЕНТОВ БОЛЬШИХ 12
Ответы
Ответ дал:
0
var ar:array[1..10] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(-15,15);
write(ar[i]:4);
if ar[i]>12 then k:=k+ar[i];
end;
writeln;
write('Result:',k);
end.
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(-15,15);
write(ar[i]:4);
if ar[i]>12 then k:=k+ar[i];
end;
writeln;
write('Result:',k);
end.
Ответ дал:
0
т.к. Паскали бывают разные и на разных платформах, то не плохо было бы добавить первоначальную инициализацию переменной k:=0
Ответ дал:
0
хорошо спасибо
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад