среда, 28 ноября 2012 г.

Задание № 2:

1. Составьте программу для подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.
 
Program zadacha;
const n =30;
var a: array[1..n] of integer;
i, k, kmax: integer;
begin
for i:=1 to n do
begin
writeln('введите',i,'элемент');
readln(a[i]);
end;
k := 1;
kmax := 1;
for i:=2 to n do begin
if a[i] = a[i-1] then
k := k + 1
else k := 1;

1 комментарий: