Одновимірний масив Х(12) елементів дійсних
10-11 класс
|
чисел. Знайти найбільший додатний елемент і найменший від’ємний елементи масиву.
Program qwe;
Uses crt;
var x:array[1..12] of real;
i:integer;
min,max:real;
begin
clrscr;
Writeln('Введите елементы масыву');
for i:=1 to 12 do
begin
Readln(x[i]);
end;
max:=x[1];
min:=x[1];
For i:=1 to 12 do
begin
if max<x[i] then max:=x[i];
if min>x[i] then min:=x[i];
end;
Writeln('Max: ',max:2:2);
Writeln('Min: ',min:2:2);
readkey;
end.
Другие вопросы из категории
Код паскаль
D:\2013\Зима\Вьюга.doc.
Читайте также
Язык-Pascal. Помогите пожалуйста!
№1. В одновимірному масиві А[1..10] порахувати середнє арифметичне елементів з парними індексами.
№2. В двовимірному масиві В[1..3,1..3] знайти добуток елементів які знаходяться на непарних рядках. Порахуваті середнє арифметичне всіх від'ємних елементів.
№3. В слові "Мадагаскар" поміняти літери місцями.
елементів, то замість масива В написати елемент m=0.