//PascalABC.Net 3.1 сборка 1200
var
number: integer;
sum, sum_all, k: integer;
begin
repeat
write('Элемент последовательности => ');
readln(number);
if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;
if (number <= 100) then k := k + 1;
sum_all := sum_all + number;
until number = 0;
writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);
writeln('Сумма всех = ', sum_all);
writeln('Кол-во чисел, которые не больше 100 = ', k);
end.
нумерация элементов, а соответственно и строк в массиве начинается с 0
программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.
так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100
var
n, k : integer;
a : real;
var d : array[,] of real;
begin
write('введите размер матрицы n=');
readln(n);
d := new real[n,n];
for var i := 0 to n-1 do begin
for var j := 0 to n-1 do d[i,j] := random(101);
end;
write('введите номер строки k=');
readln(k);
a := d[k,k];
for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;
end.
нач
вещ первое, второе
ввод первое, второе
вывод первое/второе
кон
Тестовое решение:
>> 01:12:23 - Новая программа* - Выполнение начато
16.5 3
5.5
>> 01:12:34 - Новая программа* - Выполнение завершено
алг а2
нач
цел число1, число2, число3, произведение
ввод число1, число2, число3
произведение:= число1*число2*число3
если произведение <50 то
вывод 10*число1,", ",10*число2,", ",10*число3
иначе вывод произведение
все
кон
Тестовое решение:
>> 01:18:48 - Новая программа* - Выполнение начато
4 2 3
40, 20, 30
>> 01:18:59 - Новая программа* - Выполнение завершено
>> 01:20:19 - Новая программа* - Выполнение начато
5 6 7
210
>> 01:20:23 - Новая программа* - Выполнение завершено