помогите с задачкой даделать масив, Составьте программу для задания одномерного массива А из n(n) произвол Опции

[Lakibooy]

Пожалуста помогите с решение задачи!

Составьте программу для задания одномерного массива А из n(n) произвольных целых чисел
и вывода следующих сумм:
1.a(1)+a(2)
a(3)+a(4)
a(n-1)+a(n)

2.a(1)+a(n)
a(2)+a(n-1)
a(n/2)+a(n/2+1)

найти сумму всех элементов
наити произведение
найти макс. элемент массива
найти последний положительный элемент массива

Program pr1;
uses crt;
var
 a:array [1..100] of byte;
s1,n:integer;
b,i:integer;
begin
clrscr;
write('11111');
readln(i);
for b:=1 to i do
begin
(b):=Random(100)-50;
write(a[b]);
end;
S1:=(a[1]+a[2]);
writeln(s1);
s1:=(a[3]+a[4]);
writeln(s1);
s1:=(a[i-1]+a[n]);
writeln(S1);
S1:=(A[1]+A[i]);
writeln(S1);
s1:=(a[2]+a[i-1]);
writeln(s1);
s1:=(a[i div 2]+a[i div 2+1]);
writeln(S1);
s1:=0;
for b:=i-1 to i do
begin S1:=S1+(A[b]);
end;
write(S1); s1:=1;
for b:=1 to i do;
begin
s1:=s1*(a[b]);
end;
Writeln(s1);
S1:=0;
For b:=1 to i do
begin if (a[b])>s1 then s1:=(a[b]);
end;
writeln(s1);
s1:=0;
for b:=1 to i do
begin if (a[b])>0 then S1:=(A[b]);
end;
writeln(s1);
readkey;
end.

Сообщение отредактировано: Lakibooy - 1.06.2007 13:20

[Ozzя]

Тогда тебе сюда