Var mas : array [1..100,1..100] of integer; n,m,i,j,summa:integer; begin write('Введите количество строк n='); readln(n); write('Введите количество столбцов m='); readln(m); for i:=1 to n do for j:=1 to m do mas[i,j]:=random(99); writeln('Исходная матрица'); for i:=1 to n do begin for j:=1 to m do write(mas[i,j]:2,' '); writeln; end; summa:=0; for i:=1 to n do for j:=1 to m do summa:=summa+mas[i,j]; write('Сумма=', summa); end.
Так как количество чисел заранее неизвестно, открываем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, цикл прерывается командой break Программа:
k=0 #начальное значение счетчика while True: #открываем бесконечный цикл x=int(input()) #вводим целое число if x==0: #если введено число 0 break #то останавливаем цикл elif x%7==0: #иначе, если число кратно 7 (т.е. делится без остатка) k+=1 #увеличиваем счетчик на 1 print(k) #вывод значения счетчика
Зависит от того, в чем проблема. Проверенный метод - перезагрузить, если не получается отключить питание. Если при последующих включениях также будет зависать, значит проблема кроется внутри компьютера. Возможная причина, нехватка оперативной памяти, либо, если компьютер давно не чистился от пыли, то его стоит почистить и возможно, это Еще одна возможная причина - если компьютер достаточно старый, то виной может быть износ процессора или других его компонентов. В данном случае зависит от ошибки, которую компьютер выдает при включение. Если её нет, значит проблема из списка выше
mas : array [1..100,1..100] of integer;
n,m,i,j,summa:integer;
begin
write('Введите количество строк n='); readln(n);
write('Введите количество столбцов m='); readln(m);
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(99);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:2,' ');
writeln;
end;
summa:=0;
for i:=1 to n do
for j:=1 to m do
summa:=summa+mas[i,j];
write('Сумма=', summa);
end.