Вахрамей
7 год назад
Информатика. PascalABC. Даю 40 баллов.
ОТВЕТЫ
Levepnef
Jul 17, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat(A[{0}]={1},i+1,a[i])
end;
if k=0 then Writeln(Заданных элементов в массиве нет)
end.
Пример
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat(A[{0}]={1},i+1,a[i])
end;
if k=0 then Writeln(Заданных элементов в массиве нет)
end.
Пример
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56
228
Смежные вопросы:
