Составьте программу,, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит наэкран элементы , значения которых являются четными и кратными3.
Ответы на вопрос
Ответил preceptor
0
Program Task;
Var a: Array [1..20] of Integer;
i: Integer;
Begin
For i := 1 To 20 Do
Begin
a[i] := Random(30) + 1;
If a[i] Mod 3 = 0 Then
Write(a[i], ' ');
End;
ReadLn;
End.
Var a: Array [1..20] of Integer;
i: Integer;
Begin
For i := 1 To 20 Do
Begin
a[i] := Random(30) + 1;
If a[i] Mod 3 = 0 Then
Write(a[i], ' ');
End;
ReadLn;
End.
Новые вопросы
Информатика,
2 года назад
Алгебра,
2 года назад
Алгебра,
9 лет назад
История,
9 лет назад
Биология,
9 лет назад