Помогите с задачей, пожалуйста...
5-9 класс
|
Дан массив из 15 элементов, сгенерированных случайным образом(промежуток от -40 до 80). Вывести все элементы массива, четные и оканчивающиеся на 4.
const n = 15;
var
a: array[1..n] of integer;
i: byte;
begin
for i := 1 to n do begin
a[i] := random(121) - 40;
write(a[i], ' ');
end;
writeln;
for i := 1 to n do
if(a[i] mod 2 = 0) and (a[i] mod 10 = 4) or (a[i] = 4) or (a[i] = -4) then write(a[i], ' ');
end.
Другие вопросы из категории
1 байт=8 бит
Продолжите, пожалуйста, список до единицы ГБ включительно.
Читайте также
что угодно, помогу)Вот задача - Под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний балл ? Известно , что - в классе учится 14 учеников, - Сумма всех средних баллов аттестата = 100.Известно также , что первый ученик имел средний балл, который составляет 1/ 12 суммы всех средних баллов. Второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . Средние баллы аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . Четвертый ученика на конец года имел такой же балл , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные баллы .Какой средний балл на конец года получил каждЫй?
62- симуляторы. Сколько ребят с одинаковым удовольствием играют и в квесты, и в симуляторы?