var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do // Повторять цикл пока i не будет равно y
begin // Вход в цикл
z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end; // Выход из цикла
write(z); // Вывод z (произведение х и у)
end. // Конец программы
Const n=10;
Var a: array [1..n] of integer;
i,min: integer;
Begin
For i:=1 to n do
a[i]:=Random(21)-10;
writeln ('Исходный массив: ');
for i:=1 to n do
write (a[i],' ');
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln ('Минимальный элемент = ',min);
for i:=1 to n do
if a[i]<0 then
a[i]:=a[i]*min;
writeln ('Преобразованный массив:');
for i:=1 to n do
write (a[i], ' ');
end.
<span>Al:=sqr (a) ⇒ integer
A2:=16 mod 5 ⇒ integer
A3:=sqr (b) ⇒ real
A4:=2.5*a ⇒real
A5:=5 div 1/3 ⇒ real
A6:=a-A1 ⇒ integer
A7:a>b ⇒ boolean
A8:=A2/b
</span>⇒ real
1-я Ошибка: пропущено слово array.
2-я Ошибка: of integer написано слитно.
Исправленный вариант: consta:array[1..4]of integer=(11,7,61,107);
Ответ:2)