program number1;
var a: array [1..5] of integer;
i,min,max: integer;
Begin
writeln('Введите 5 значений массива');
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 5 do
Begin
if (a[i]>=max) then max:=a[i];
if (a[i]<=min) then min:=a[i];
End;
for i:=1 to 5 do
Begin
if max=a[i] then
Begin
writeln('Максимальное значение: ',a[i],' [',i,']');
max:=a[i];
End;
if min=a[i] then
Begin
writeln('Минимальное значение: ',a[i],' [',i,']');
min:=a[i];
End;
End;
writeln('Среднее арифметическое: ',(min+max)/2);
End.
Современные системы программирования обычно предоставляют пользователям мощные и удобные средства разработки программ. В них входят:
компилятор или интерпретатор;
интегрированная среда разработки;
средства создания и редактирования текстов программ;
обширные библиотеки стандартных программ и функций;
отладочные программы, т.е. программы, помогающие находить и устранять ошибки в программе;
"дружественная" к пользователю диалоговая среда;
многооконный режим работы;
мощные графические библиотеки; утилиты для работы с библиотеками
встроенный ассемблер;
встроенная справочная служба;
другие специфические особенности.
Популярные системы программирования — Turbo Basic, Quick Basic, Turbo Pascal, Turbo C.
Делим на 4 и записываем остатки от деления, все элементарно! ответ 321
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
end.