Создать программу в паскале используя массив: Даны 10 чисел. Определить, сколько среди них отличные от последнего числа.
10-11 класс
|
program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
Другие вопросы из категории
после того как файлы были скачаны, выяснилось что объем файла шпунтика на 20 % больше файла винтика. при скачивании двух файлов скорость скачивания каждого в два раза ниже первоначальной. с какой разницей в минутах закончилась скачивание файлов?
1) напишите программу вычисления факториала числа n (произведение чисел от 1 до n)
2) Напишите программу суммы четных чисел от 1 до 5
3) Напишите программу угадывания чисел, в которой компьютер делает подсказки: меньше или больше.
1. По количеству ног, лап, конечностей определить название животного:рыба, птица, лось, жук-олень, паук, сороконожка.
2. По номеру ряда выдать стоимость билета в кинотеатре (1-10 "150р" 11-15 "100р" 16-20 "75р")
Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц (1 234 567) числом, кратным 13 или 5?
Читайте также
1) Вводятся 100 чисел.Определить сколько среди них положительных и сколько отрицательных.(Числа вводятся в одну переменную в цикле)
2) Алгоритм вычисления суммы квадратов десяти производных чисел, водимых с клавиатуры в процесс выполнения алгоритма
И НАПИШИТЕ ПРОГРАММУ ДЛЯ КАЖДОЙ ЗАДАЧИ
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.