Question

Как составить программу в PASCAL?

Составить постановку, алгоритм и в pascale программу подсчитывающую количество меньших чем предыдущие элементов массива f из 10 чисел. Значения элементов массива ввести с клавиатуры

?

Answer 1

// Программа работает в Pascal ABC.Net

program ggg;

// uses Dos,Crt,Math {забрать // перед uses если программа запускается в среде TurboPascal}

var f : array [1..10] of real;

i,k : integer;

begin

k := 0;

writeln('Введите 10 элементов массива F');

writeln('------');

for i :=1 to 10 do

begin

write(' F[',i,'] = ');readln(f[i]);

if i>=2 then

begin

if f[i-1] > f[i] then k := k + 1;

end;

end;

writeln(' ------ ');

writeln('Количество элементов массива F, которые имеют меньшее значение за предыдущие, равно = ', k);

end.