У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программы:
program m3;
var i, p: integer;
a: array [1..6] of integer;
begin
for i:= 1 to 6 do a [ i ]: = i + 3;
p:= 1;
for i:= 1 to 6 do
if a [ i ]>5 then p:= p * a [ i ];
writeln (‘p= ‘, p)
end.

109

408

Посмотреть ответы 2

Ответы на вопрос:

CrySony1

Информатика

4,5(91 оценок)

Исправил программу, теперь работает:

program m3; var i, p: integer; a: array [1..6] of integer;begin for i:= 1 to 6 do a[i]:= i + 3; p:= 1; for i:= 1 to 6 do if a[i]>5 then p:= p * a [ i ]; writeln ('p = ', p)end.

ответ: во вложении.

У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программ

vavavvavavavava

Информатика

4,6(12 оценок)

Вот на java, в паскаль лень переводить. если все же нужно, то отпишите в скайп - vasilevich24.public class zadanie4 { public static void main(string[] args) { . int a[]; a=new int [150]; system.out.println("исходный массив: "); for (int i=0; i< 15; i++) { a[i]=(int) math.floor(math.random()*20)-10; system.out.println("a["+i+"]="+a[i]); } for (int i=0; i< 15; i++){ if (a[i]> =-5 & & a[i]< =5){ a[i]=a[i]+1; }} system.out.println("полученный массив: "); for (int i=0; i< 15; i++) { system.out.println("a["+i+"]="+a[i]); }}}