Пожалуйста, напишите общую программу по информатике девятого класса по программирование....

Question

Пожалуйста, напишите общую программу по информатике девятого класса по программирование.
Дано три задачи:
1) Вычисление суммы элемента массива
2) Определение наибольшего элемента в массиве
3) Нахождение элемента, равного данному

Есть только две программы ко второй и третьей задаче, нужна программа к первой задаче и еще нужно объединить все эти три программы в одну.

Вторая программа программа для решения второй задачи:

program n_3;
var s, i, imax: integer;
a:array[1..10] of integer;
begin
s:=0
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
imax:=1
for i:=2 to 10 do
if a[i]>[imax] then imax:=1;
write ('наибольший элемент a[', imax, ']' a[imax]')
end.

Третья программа для решения третьей задачи:

program n_3;
var n, i, imax: integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write ('нет') else write (i)
end.

Answer 1

Вот держи
program n_3;var n, i,s, imax: integer;a:array[1..10] of integer;begin//третья прогаwriteln('3 прога');
for i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do write (a[i],' ');n:=0;for i:=1 to 10 doif a[i]=50 then n:=i;if n=0 then write ('нет') else write (i);writeln();writeln('2 прога');s:=0;//вторая прогаfor i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do write (a[i],' ');imax:=1;for i:=2 to 10 doif a[i]>imax then imax:=1;writeln();write ('наибольший элемент a[', imax, ']=' ,a[imax]);writeln();writeln('1 прога');begin//1 прогаfor i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do n:=n+a[i];writeln('Сумма елементов =',n);end;end.

Comments

program n_3;
var n, i,s, imax: integer;
a:array[1..10] of integer;
begin//третья прога
writeln('3 прога');
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
n:=0;
for i:=1 to 10 do
if a[i]=50 then n:=i;
if n=0 then write ('нет') else write (i);
writeln();

---

writeln('2 прога');
s:=0;//вторая прога
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i],' ');
imax:=1;
for i:=2 to 10 do
if a[i]>imax then imax:=1;
writeln();
write ('наибольший элемент a[', imax, ']=' ,a[imax]);
writeln();
writeln('1 прога');
begin//1 прога
for i:=1 to 10 do
a[i]:=random(50);
for i:=1 to 10 do
n:=n+a[i];
writeln('Сумма елементов =',n);
end;
end.

---

в коменты прога вся не влазет

---

тут вроде код четабельней

---

Спасибо большое)

---

Вторая неправильная.

---

согласен

---

не правильна

---

ну тут сам человек который выложил эту прогу допустил ошибку меня он попросил написать 1 прогу и написать общую прогу включая те две которые он сам написал

---

вторую нам сам учитель показывал, это не к нам преьявляйте проблемы