Program zadacha;
var a: array[1..5] of integer;
max,min,i,nmax,nmin: integer;
begin
for i:=1 to 5 do
begin
write ('Ââåäèòå a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
nmax:=1;
nmin:=1;
for i:=1 to 5 do
begin
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
if a[i]<min then
begin
min:=a[i];
nmin:=i;
end;
end;
for i:=1 to 5 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Максимальный элемент равен ',max,', его номер ',nmax);
writeln ('Минимальный элемент равен ',min,', его номер ', nmin);
end.
Решение задачи на языке PascalABC:
<em>Program n1;
</em>
<em>Var a:array[1..16] of integer; i:integer; //Описываем переменные
</em>
<em>Begin
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> a[i]:=random(40)-20; //заполняем массив
</em>
<em> write(a[i],' '); //выводим значение каждого элемента массива
</em>
<em>End;
</em>
<em>writeln; //пропускаем строчку при выводе
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> if a[i] mod 2 = 0 then //условие чётности
</em>
<em> writeln('Элемент со значением (',a[i],') под номером #',i,' является чётным'); //вывод чётных элементов и их номеров
</em>
<em>End;
</em>
<em>End.</em>
Утверждение Миши ложно в 1 части и истинно в 2 части.
Утверждение Коли ложно в обеих частях.
Утверждение Сергея истинно в обеих частях.
Это полностью соответствует условию, ответ - Миша
Program gg;
var(x,y): real;
begin
writeln('введите х и у');
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then writeln('true');
end.
var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.