задача:  Дан массив A состоящий из 10 элементов,заполнить его ...

Ирина

vari,a,b:integer;x: array[1..15] of integer;begina:=0;b:=0;for i:=1 to 15 dobeginbeginx[i]:=random(15);write(x[i]:4);end;if (x[i]>=0)and(x[i] mod 3=0) thenb:=b+1;end;writeln;writeln;for i:=1 to 10 dobegina:=a+x[i];end;write('суммa = ',a);end.

 

 

--{

program zadacha (input, output) ; (ввод-вывод элементов массива}vara: array [1..10] of integer; i: integer; beginrandomize;for i:=1 to 10 do begina[i]:=random(30) ;writeln ('A(' I, ')=', a[i])end end.

}--