Владилен
7 год назад
В паскале составить программу которая формирует массив из 16 случайных целых чисел в промежутке от -12 до 10 и подсчитывает кол-во элементов кратных 3
ОТВЕТЫ
Maepnedik
Jul 14, 2019
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(16,-12,10); a.Println;
Writeln(Кол-во кратных 3 элементов равно ,
a.Where(x-gt;x mod 3=0).Count)
end.
Пример
-12 -2 6 -10 8 2 -5 -2 4 5 -10 6 -12 1 -6 -8
Кол-во кратных 3 элементов равно 5
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(16,-12,10); a.Println;
Writeln(Кол-во кратных 3 элементов равно ,
a.Where(x-gt;x mod 3=0).Count)
end.
Пример
-12 -2 6 -10 8 2 -5 -2 4 5 -10 6 -12 1 -6 -8
Кол-во кратных 3 элементов равно 5
При копировании кода на сайт из IDE автоматически убираются пробелы. Ниже будет скриншот того, как должен будет выглядеть код.
program zn; begin var a: array [1..16] of integer; var i, c: integer; c:=0; for i:=1 to 16 do begin a[i]:=random(20)-12; writeln(a[i], ); if a[i] mod 3=0 then c:=c+1; end; writeln(Кол-во элементов кратных 3: , c); end.
program zn; begin var a: array [1..16] of integer; var i, c: integer; c:=0; for i:=1 to 16 do begin a[i]:=random(20)-12; writeln(a[i], ); if a[i] mod 3=0 then c:=c+1; end; writeln(Кол-во элементов кратных 3: , c); end.
166
Смежные вопросы:
