Решите пожалуйста эти задачи на языке Pascal
- 1. program first;var a:array[1..6] of real; summ:real; i:integer;beginsumm:=0;for i:=1 to 6 do read(a[i]);for i:=1 to 6 do summ:=summ+a[i];writeln(summ);
end.
2.program second;var a: array[1..10] of integer; i, pr:integer;beginproiz:=1;for i:=1 to 10 do read(a[i]);for i:=1 to 10 do if (i mod 20) then pr:=pr*a[i];writeln(pr);
end.
3.program third;var a:array[1..10] of integer; i, count, summ:integer; srznach:real;beginsumm:=0;count:=0;for i:=1 to 10 do read(a[i]);for i:= 1 to 10 do if (a[i]>=0) then begin count:=count+1; summ:=summ+a[i]; end;srznach:=summ/count;writeln(summ);
end.