решить задания по информатике

наверно так

a: array [1..100] of longint

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 0) then s: =s+a; until a=0; writeln(s); end.

программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

program d1varc: array[1..20] of integer; i,z: integer; beginrandomize; for i: =1 to 20 dobeginc[i]: =random(50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]> z then z: =c[i]; end; c[z]: =0; end.