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
Var ars:array[1..50] of string; ark:array[1..50] of integer; s:string; i,n,k,j:integer; begin readln(n); k:=0; for i:=1 to n do begin; readln(ars[i]); for j:=1 to 4 do delete(ars[i],1,pos(' ',ars[i])); s:=ars[i]; if (s[1]='6') or (s[1]='7') or (s[1]='8') then begin; inc(k); ark[k]:=i; end; end; writeln(k); for i:=1 to k do writeln(ark[i]); end.
Пример ввода: 2 Петров Петр Петрович 10 6 2007 Иванов Иван Иванович 10 2 2007 Пример вывода: 1 1
//PascalABC.NET 3.0 const n = 5; begin var a := ArrRandomReal(n); var b := ArrRandomReal(n); write('Длины первого катета: '); foreach var i in a do write(i : 5 : 2); write(NewLine, 'Длины второго катета: '); foreach var i in b do write(i : 5 : 2); var imax := 0; for var i := 1 to n - 1 do if a[imax] * b[imax] < a[i] * b[i] then imax := i; writeln(NewLine, 'Номер: ', imax + 1); writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2); writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.
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