Создать программу в паскале используя массив: даны 10 чисел. определить, сколько среди них отличные от последнего числа.
252
320
Ответы на вопрос:
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.
Популярно: Информатика
-
khfozilzhonov30.08.2022 21:31
-
nAsTyAsUpErYeS08.02.2022 17:45
-
maxmax4111.11.2020 18:48
-
andreweeoneoff29.08.2021 13:19
-
Ерерккк24.02.2020 21:19
-
5Vlad285118.04.2022 19:26
-
Димончик11111103.06.2022 22:22
-
Samsung12345678907.07.2022 08:20
-
igor228509.11.2021 23:06
-
Виктор33807.01.2021 04:56