Напишите общую программу по информатике девятого класса по программирование. дано три : 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.

alex20294 alex20294    3   14.09.2019 04:10    1

Ответы
tretekova86 tretekova86  07.10.2020 13:22
Вот держи
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика