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]<min then begin min:=a[i]; end; end; Writeln('min:',min); max:=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.
Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.
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]<min then
begin
min:=a[i];
end;
end;
Writeln('min:',min);
max:=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.