ПОЖАЛУЙСТА, ПОМОГИТЕ. ОЧЕНЬ НАДО!!!! одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.
ПОЖАЛУЙСТА, ПОМОГИТЕ. ОЧЕНЬ НАДО!!!!
одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
begin Write('Введите элемент' ,i,': '); Read(a[i]);
end;
min:=a[1];
for i:=1 to n do
Begin
if a[i]max then
begin max:=a[i];
end;
end;
Writeln('max: ',max);
summa := 0 ;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then summa := summa + a[i]
end;
writeln('Сумма четных элементов равна : ', summa);
readln;
end.
Не нашли ответ?
Похожие вопросы