Технология выполнения индивидуальных заданий. Часть 1 - 27 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

27
for i:=kmin+1 to kmax-1 do
if a[i]>0 then k:=k+1;
count:=k
end;
begin
write('Введите размер массива ');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
read(a[i]);
MinMax(n,a,kmin,kmax);
if kmin > kmax then
begin k:=kmin; kmin:=kmax; kmax:=k end;
k:=Count(kmin,kmax,a);
writeln('Количество положительных: ',k)
end.
Тестовые примеры для этой задачи должны содержать по крайней мере три
следующих случая:
– элемент a[kmin] расположен левее элемента a[kmax];
– элемент a[kmin] расположен правее элемента a[kmax];
– элементы a[kmin] и a[kmax] совпадают.
Тестовые примеры
Таблицы 1, 2, 3 иллюстрируют результаты к тестовым примерам.
1) n
= 10, a = (6, -8, -10, 9, -1, 3, 5, 15, 12, 2), k = 3
Таблица 1 Иллюстрация результатов тестового примера 1
6 -8 -10 9 -1 3 5 15 12 2
мин + + + макс

Страницы