помогите пожалуйста. нужно составить программы(паскаль).
10-11 класс
|
Если я правильно понял задачу, то:
const
N = 10;
var
A: array[1..N] of integer;
i, count, summa: integer;
begin
for i:=1 to N do
begin
A[i]:= -100 + random(201);
Writeln('A[',i,'] = ', A[i]);
end;
for i:=1 to N do
if(A[i] mod 2 <> 0) then
begin
inc(count);
summa:= summa = A[i];
end;
Writeln('Сумма: ', summa);
Writeln('Кол-во нечетных элементов: ', count);
end.
Другие вопросы из категории
Программирование
Решить квадратное уравнения вида ax^2 + bx + c = 0
К решению математическая модель:
Дано:
Нужно:
Связь:
При:
Нужно еще составить математическую модель. Подскажите, пожалуйста, как это сделать?
Например, факториал числа 7 выглядит так:
1 * 2 * 3 * 4 * 5 * 6 * 7
Читайте также
лыжника за эти 2 недели? Помогите пожалуйста,нужно составить программу в QBasic
Нужно составить в паскале программу для проверки пароля, совсем не понимаю паскаль, для меня это темный лес!)
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!