var i, n, k, s: integer; a: array[1..nmax] of integer;
begin Randomize; Write('Введите количество элементов массива (1-99)'); Readln(n); Write('Введите число k '); Readln(k); Writeln('Исходный массив'); s := 0; for i := 1 to n do begin a[i] := Random(98) + 1; Write(a[i]:3); if (a[i] mod k) = 0 then s := s + a[i] end; Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s) end.
Тестовое решение:
Введите количество элементов массива (1-99)12 Введите число k 3 Исходный массив 34 63 18 81 91 83 83 80 10 59 81 74 Сумма элементов, кратных 3 равна 243
begin Write('Введите через пробел три числа -> '); Readln(a, b, c); if ((a > b) and (b > c)) or ((a < b) and (b < c)) then begin a := 2 * a; b := 2 * b; c := 2 * c end else begin a := -a; b := -b; c := -c end; writeln('Новые значения чисел: ', a, ', ', b, ', ', c) end.
Тестовое решение:
Введите через пробел три числа -> 18 5 -3 Новые значения чисел: 36, 10, -6
Введите через пробел три числа -> -6 0 5 Новые значения чисел: -12, 0, 10
Введите через пробел три числа -> 11 20.7 4.9 Новые значения чисел: -11, -20.7, -4.9
nmax = 99;
var
i, n, k, s: integer;
a: array[1..nmax] of integer;
begin
Randomize;
Write('Введите количество элементов массива (1-99)');
Readln(n);
Write('Введите число k ');
Readln(k);
Writeln('Исходный массив');
s := 0;
for i := 1 to n do
begin
a[i] := Random(98) + 1;
Write(a[i]:3);
if (a[i] mod k) = 0 then s := s + a[i]
end;
Writeln(#13#10, 'Сумма элементов, кратных ', k, ' равна ', s)
end.
Тестовое решение:
Введите количество элементов массива (1-99)12
Введите число k 3
Исходный массив
34 63 18 81 91 83 83 80 10 59 81 74
Сумма элементов, кратных 3 равна 243