сервис вопросов и ответовНаписать программу в ПАСКАЛЕ, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением. Пожалуйста подробно...
5-9 класс|
|
Maks455
20 сент. 2014 г., 19:57:45 (9 лет назад)
Sofko
20 сент. 2014 г., 22:05:29 (9 лет назад)
var a:array [1..100] of integer;
n,i,j:integer;
f:boolean;
BEGIN
read(n);
f:=false;
for i := 1 to n do begin
readln(a[i]);
for j:= 1 to i-1 do
f=f or (a[i]=a[j]);
end;
writeln(f);
END.
Ответить
Другие вопросы из категории
Что не относится к долговременным носителям информации
1)Записная книжка
2)магнитная лента
3)справочник
4)энциклопедия
Составьте алгоритм вычисления суммы всех натуральных чисел,не привышающих заданного натурального числа N . Проверьте алгоритм трассировкой. Напишите
программу в Паскале.
Читайте также
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
1. Дано натуральное число n. Определить есть ли в нем цифра x. (x, n - вводятся с клавиатуры)
2. Напишите программу, которая вводит последовательность целых ненулевых чисел, признак окончания ввода - число 0. Выясните есть ли в ней хотя бы одна пара одинаковых "соседних" чисел. СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Помогите , пожалуйста . Нужно написать программу для Паскаль.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
Вы находитесь на странице вопроса "Написать программу в ПАСКАЛЕ, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением. Пожалуйста подробно...", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.