Регистрация
alisheralisher2
01.07.2020 20:10
Информатика
Есть ответ 👍

Дан массив целых чисел, состоящий из 30 элементов. заполнить его с клавиатуры. найти:
1. сумму отрицательных элементов.
2. найти количество тех элементов, значения которых положительны и не превосходят рдан массив целых чисел, состоящий из азмер заданного числа а.
без sum. ​

125
207
Посмотреть ответы 1

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

L1mbada
L1mbada
4,5(96 оценок)
Var      i: integer;     n: string;     b: boolean; begin    writeln('n = ? ');     readln(n);     b: = false;     for i: = 1 to length(n)-1 do        if n[i] = n[i+1] then          b: = true;           write(b);     readln end.

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