Задание для паскаля ABC
1.Подсчитать сумму чисел кратных 5 до первого нулевого значения.
( Использовать оператор цикла с предусловием или с постусловием).
2.Дан массив из 10 целых чисел. Написать программу
нахождения суммы положительных элементов массива, не превосходящих заданного числа А.
3.В целочисленной матрице размерностью 4*4 найти наибольший элемент и номер строки, в которой он находится.
program _1;
var
s: integer = 0;
a: integer;
begin
repeat
readln(a);
if a mod 5 = 0 then
s := s + a;
until a = 0;
writeln('Sum:', s);
readln;
end.
program _2;
const
N = 10;
A: array[1..N] of integer = (-1, 2, -3, 4, -5, -6, 7, -8, 9, -10);
K = 6;
var
s: integer = 0;
i: integer;
begin
for i := 1 to N do
if (A[i] > 0) and (A[i] < K) then
s := s + A[i];
writeln('Sum:', s);
readln;
end.
program _3;
const
N = 4;
A: array[1..N,1..N] of integer = (
(1, 2, 3, 4),
(5, 6, 20, 8),
(9, 10, 11, 12),
(13, 14, 15, 16));
var
i, j: integer;
i_max, max_v: integer;
begin
i_max := 1;
max_v := A[1, 1];
for i := 1 to N do
for j := 1 to N do
if A[i, j] > max_v then
begin
max_v := A[i, j];
i_max := i;
end;
writeln('Max: ', max_v);
writeln('String index: ', i_max);
readln;
end.