Лука
6 год назад
Пожалуйста, напишите общую программу по информатике девятого класса по программирование.Дано три задачи:1) Вычисление суммы элемента массива2) Определение наибольшего элемента в массиве3) Нахождение элемента, равного данномуЕсть только две программы ко второй и третьей задаче, нужна программа к первой задаче и еще нужно объединить все эти три программы в одну.Вторая программа программа для решения второй задачи:program n_3;var s, i, imax: integer;a:array[1..10] of integer;begins:=0for i:=1 to 10 do a[i]:=random(50);for i:=1 to 10 do write (a[i],' ');imax:=1for i:=2 to 10 doif 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;beginfor 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)end.
ОТВЕТЫ
Radka
Oct 24, 2020
вот держи
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.
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.
629
