Регистрация
Phgfg
24.08.2020 06:10
Информатика
Есть ответ 👍

Заполнить массив из 10 целых чисел с клавиатуры положительными и отрицательными числами. найти сумму положительных элементов массива.(паскаль)

293
293
Посмотреть ответы 2

Ответы на вопрос:

larionxam
larionxam
4,4(23 оценок)
Var   a: array [1..10] of real;   s: real;   i: integer; begin   s: = 0;   for i: = 1 to 10 do   begin     writeln('введите число');     readln(a[i]);   //вводим i-ый элемент массива с клавиатуры     if a[i] > 0 then s: = s + a[i];   {если введенный элемент > 0, то прибавляем к текущему значению s введенный элемент}   end;   writeln('сумма положительных элементов массива: ', s) end.
tashbaeva201
tashbaeva201
4,4(51 оценок)

ответ:

var a: integer;

begin

write('a = ');

readln(a);

if a mod 2 = 0 then write('четное ') else write ('нечетное ');

if (a> 0) and (a< 10) then write ('однозначное число') else write ('двузначное число')

end.

Популярно: Информатика