Напишите общую программу по информатике девятого - вопрос №8424182 от GoshaLLL 19.10.2021 08:55

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);

GoshaLLL · Answer

Вот держи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(...