1. Значения переменных a и b равны a = 4 и b = 6.
Определите, сколько раз выполнится цикл, и чему будут
равны значения этих переменных после его завершения:
а) while a < b:
a += 1
б) while a < b:
a += b
2.Найдите ошибку в программе:
k = 0
while k < 10:
print( "привет" )
Как её можно исправить?
3. Что будет выведено на экран в результате работы следующего цикла?
а) k = 4
while k < 10:
print( k*k, end=" " )
k += 1
б) k = 12
while k > 3:
print( 2*k-1, end=" " )
k -= 1
USES CRT;
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(10);
{Выводим массив на экран}
for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:2, ' ');
Writeln;
end;
min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}
{Ищем минимальный элемент в массиве}
for i:=1 to 5 do
for j:=1 to 5 do
if A[i,j]<min then min:=A[i,j];
Writeln('Минимальный элемент в данном массиве = ',min);
{Обнуляем счетчик}
s:=0;
{Считаем сколько минимальных элементов в каждой строке и выводим на экран}
for i:=1 to 5 do
begin
for j:=1 to 5 do
if A[i,j]=min then s:=s+1;
Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз'); s:=0;
end;
READLN;
END.