34

Составить программу заполнения массива, не используя клавиатуру…

interoper 20 августа 2022

Составить программу заполнения массива, не используя клавиатуру, числами: -2,4,6,-8,-10,12,-14,-16,-18,22 В BPascal

категория: информатика

46

1 uses crt; 2 var a: array [1… 10] of integer; 3 i: byte; 4 begin5 for i: =1 to 10 do6 begin7 if odd (i) then a[i]: =i- (i*3) 8 else a[i]: =i*2; 9 write (a[i]: 4); 10 end

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...