52

Пожалуйста … помогите…. Очень срочно нужно… помогите решить задачу на Паскале……

15 апреля 2023

Пожалуйста … помогите…. Очень срочно нужно… помогите решить задачу на Паскале… . Отсортировать массив из пяти элементов и подсчитать количествоуникальных чисел в массиве… . Заранее спасибо…

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



41

Program first; var mas: array[1… 5] of integer; i,a,b: integer; beginfor i: =1 to 5 doreadln (mas[i]); for i: =1 to 4 do for j: =2 to 5 do if mas[i]>mas[j] thenmas[i]: =mas[j]; a: =mas[1]b: =0; for i: =1 to 4 do if a<>mas[i] then b: =b+1; writeln ('Уникальных чисел в массиве',b); end.

Знаете ответ?


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