Регистрация
Ррргчг2424
22.07.2022 05:04
Информатика
Есть ответ 👍

Элекронды поштамен жұмыс істеуге арналған программа​

273
293
Посмотреть ответы 1

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

elenanovikova1972
elenanovikova1972
4,5(63 оценок)
Написано в pascal: program zadacha; const n = 10; var a: array [1..n] of integer; b, c, i, j: integer; d, e: boolean; begin writeln('введите ', n, ' целых чисел через пробел и нажмите enter'); for i : = 1 to n do read(a[i]); write('b = '); readln(b); c : = 0; for i : = 1 to n do if a[i] < 0 then c : = c + 1; writeln('количество отрицательных элементов массива равно ', c); d : = false; for i : = 1 to n do begin c : = a[i]; for j : = i + 1 to n do if c = a[j] then d : = true; end; if d = true then writeln('в массиве есть одинаковые элементы') else writeln('в массиве нет одинаковых элементов'); e : = false; for i : = 1 to n do if a[i] = b then e : = true; if e = true then writeln('в массиве есть элемент, равный ', b) else writeln('в массиве нет элемента, равного ', b); readln; end.

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