nikitashvecov9p0avjh
29.07.2022 02:16

1. Напишите программу, которая в последовательности натуральных чисел определяет
максимальное число, кратное 4. Программа получает на вход количество чисел в
последовательности, а затем сами числа. Впоследовательности всегда имеется число,
кратное 4. Количество чисел не превышает 1000. Введенные числа не превышают 30 000,
Программа должна вывести одно число и максимальное число, кратное 4,
2. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных В. Программа получает на вход количество чиселв
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 3. Количество чисел не превышает 100. Введенные числа не превышают 300,
Программа должна вывести одно число количество чисел, кратных З.
3. Напишите программу, которая в последовательности натуральных чисел определяет
количество чисел, кратных 6. Программа получает на вход количество чисел в
последовательности, а затем сами числа, в последовательности всегда имеется число,
кратное 6,

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Elinak132
07.02.2023 15:08
Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.
0,0(0 оценок)
Ответ:
tosogoktkkdkdk
07.02.2023 15:08
Const nx=30; mx=30;
var r:array[1..nx,1..mx] of integer;b:array[1..mx] of integer;
i,j,n,m,k,sum,min:integer;
begin
min:=40;
randomize;
write('Введите n,m: ');readln(n,m);
writeln('Исходная матрица: ');
for j:=1 to m do begin
for i:=1 to n do begin
r[i,j]:=random(20)-10;
sum:= sum + r[i,j];end;
b[j]:=sum;sum:=0;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(r[i,j]:4);end;
writeln;end;
writeln;
for j:=1 to m do begin
write(b[j]:4);
if min > b[j] then begin
min:= b[j]; k:= j;end;
end;
writeln;writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if j=k then write(r[i,j]:4);end;
writeln;end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота