пожалуйста ... помогите.... очень срочно нужно... помогите решить задачу на Паскале....отсортировать массив из пяти элементов и подсчитать количество
10-11 класс
|
уникальных чисел в массиве....заранее спасибо...
program first;
var mas:array[1..5] of integer; i,a,b:integer;
begin
for i:=1 to 5 do
readln(mas[i]);
for i:=1 to 4 do
for j:=2 to 5 do
if mas[i]>mas[j] then
mas[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.
Другие вопросы из категории
представлено число 263 в восьмеричной системе счисления подробно
Меньшее из двух заданных неравных чисел увеличить вдвое, а большее оставить без изменения.
Введенная с клавиатуры сумма должна быть разменена наименьшим количеством купюр.В банкомате имеются купюры 500,100,50,10 рублей.Pascal
2)найти произведение целых чисел от 3 до n
Читайте также
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Очень срочно нужно , решить задачу в отчет
помогите пожалуйста
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Дана строка, удалить текст находящийся в скобках (вместе со скобками)
Я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать
Вот как я делал:
program zd;
uses crt;
var s:string; i,l,n,t,y:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
l:=length(s);
for i:=1 to n do begin
if s[i]='(' then
t:=i; {здесь присваивал номер найденной скобки}
if s[i]=')' then
y:=i; {так же, как и выше}
delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой}
end;
writeln('Данный результат =', s);
readln;
end.