помогите с задачкой даделать масив, Составьте программу для задания одномерного массива А из 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

[Lakibooy]

вот как я сделал

Program Pr1;
uses crt;
const
 n=5;
var
 a:array[0..n] of integer;
 i:integer;
 s:longint;
begin
 clrscr;
  randomize;
   for i:=0 to (n-1) do
    a[i]:=random(2*n)-n;

 writeln(' ___________');
 WriteLn('    ',a[1]+a[2]);
 WriteLn('    ',a[3]+a[4]);
 WriteLn('    ',a[n-1]+a[n]);
 writeln(' ___________');
 WriteLn('    ',a[1]+a[n]);
 WriteLn('    ',a[2]+a[n-1]);
 writeln('    ',a[i div 2]+a[i div 2+1]);
 writeln(' ___________');

хотел узнать этот код выводит сумму всех элементов

s:=0;
 for i:=0 to (n-1) do 
  s:=s+a[i];
 WriteLn(s);

а этот выводит произведение? ну только у него всегда значение 0

s:=0;
 for i:=0 to (n-1) do
  s:=s*a[i];
 WriteLn(s);
 readln;

а этот находит макс. элемент массива?

i:=n;
	while (i<>0) and (s=0) do begin
		inc(i, -1);
		if a[i]>0 then begin 
			s:=1;
			writeln(a[i]);
		end;
	end;


 read;
end.

{и какой код нужен чтоб найти последний положительный элемент массива}

вот с этим мне непонятно!
объясни пожалуста если знаешь как доделать программу!

Сообщение отредактировано: Lakibooy - 2.06.2007 2:04

[compiler]

вот как я сделал

ну... это оформление

хотел узнать этот код выводит сумму всех ементов

должен

а этот выводит произведение? ну только у него всегда значение 0

конечно, ведь я допустил не большую ошибку . что мы делаем берем 0(имено 0, ведь s:=0;) и умножаем на нулевой элемент (по порядку ), что получаем? -ноль. Теперь умножаем этот ноль на следующий элемент и т.д. .Странно было бы если получали не ноль ... поставь s:=1; ...

а этот находит макс. элемент массива?

нет этот находит как раз последний положительный элемент массива... хотя написан действительно очень плохо...
найти максимальный элемент массива намного проще, ИМХО... оставляляю на домашнее задание ... и вообще это уже решалось...

вот с этим мне непонятно!
объясни пожалуста если знаешь как доделать программу!

надеюсь теперь стало немного понятней...

Сообщение отредактировано: compiler - 2.06.2007 16:25