пооомагииитеее 447 // 100 + (829 % 100) // 10 + 704 % 10 =?

Question

Информатика: пооомагииитеее 447 // 100 + (829 % 100) // 10 + 704 % 10 =?

malishkoartem21 · Accepted Answer

1)

Const
n=10;

Var
a:array [1..n] of integer;
i,max:integer;

begin
Write('Введите массив: ');
For i:=1 to n do
Read(a[i]);
Readln;

max:=a[1];
For i:=1 to n do
If a[i]>max
Then
max:=a[i];

Writeln('Максимальный элемент - ',max);
Readln;
end.

2) хз

3)

const
n = 100;
var
arr: array[1..n] of integer;
i, m, qty: byte;
begin
write('Количество элементов массива: ');
readln(m);
write('Элементы массива через пробел: ');
for i:=1 to m do
read(arr[i]);
readln;

qty := 0;
i := 2;
while i < m do
if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin
qty := qty + 1;
i := i + 2
end
else
i := i + 1;

writeln('Кол-во элементов, которые больше соседей: ', qty);

readln;
end.

Вроде как-то так

MOGZ ответил

пооомагииитеее

447 // 100 + (829 % 100) // 10 + 704 % 10 =?