Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
a[i]:=random(101)-50;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
или
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
Readln(a[i]);
clrscr;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
вот.. вроде подробно, все понятно и четко написано?
С каждым годом компьюторы становятся все более совершенны: появляются новые виндуусы, новые программы фотошопа и защиты от вирусов, новые компьюторные супер-экраны, ксерокс, принтер, скайп и тд
Паскаль.
<span>
<span>Program Primer;
VAR :x; y; z;integer
BEGIN
</span><span>x=5
y=-6
if x>y then z=x+y
else z=y-x
writeln (z)
END.</span></span>
Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.
program summa;
uses crt;
var N,a,s,i: integer;
begin
read(N); a:=0; s:=0;
for i:=1 to N do
begin
a:=a+1;
s:=s+(a*a);
end;
writeln(s);
end.