высокий уровень, время – 35 минут)

Стр 1 из 2Следующая ⇒

26 (высокий уровень, время – 35 минут)

Тема: Обработка массива целых чисел из файла. Сортировка.

В языке PascalABC.NET для чтения данных проще всего просто перенаправить входной поток на файл:

Assign( input, '26.txt' );

после этого можно использовать операторы read и readln, так же, как при вводе с клавиатуры.

Нужно только следить, чтобы файл с программой и файл с данными находились в одной папке.

Размер массива можно определить, взглянув на файл данных (на его первое число)

const NN=1000;

var a:array[1..NN]of integer;

i,j,k,n,m,s,p:integer;

Begin

Assign( input,'26.txt' );

readln(n,k);

for i:=1 to n do readln(a[i]);

For i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j]

then begin p:=a[i];

a[i]:=a[j];a[j]:=p end;

s:=0;

for i:=k+1 to n-k do

s:=s+a[i];

m:=a[n-k];

s:=trunc(s/(n-2*k));

writeln(m:6, s:6)

End.

ЗАДАЧА 12.

1. Дана программа для исполнителя Редактор:

НАЧАЛО

ПОКА нашлось (9999) ИЛИ нашлось (333)

ЕСЛИ нашлось (9999)

ТО заменить (9999, 3)

ИНАЧЕ заменить (333, 99)

КОНЕЦ ЕСЛИ

КОНЕЦ ПОКА

КОНЕЦ

Какая строка получится в результате применения приведённой выше программы к строке, состоящей из 207 идущих подряд цифр 9? В ответе запишите полученную строку.

2. Дана программа для исполнителя Редактор:

НАЧАЛО

ПОКА нашлось (9999) ИЛИ нашлось (333)

ЕСЛИ нашлось (9999)

ТО заменить (9999, 3)

ИНАЧЕ заменить (333, 99)

КОНЕЦ ЕСЛИ

КОНЕЦ ПОКА

КОНЕЦ

Какая строка получится в результате применения приведённой выше программы к строке, состоящей из 207 идущих подряд цифр 3? В ответе запишите полученную строку.

3. Дана программа для исполнителя Редактор:

НАЧАЛО

ПОКА нашлось (25) ИЛИ нашлось (355) ИЛИ нашлось (4555)

ЕСЛИ нашлось(25) ТО заменить (25, 3) КОНЕЦ ЕСЛИ

ЕСЛИ нашлось(355) ТО заменить (355, 4) КОНЕЦ ЕСЛИ

ЕСЛИ нашлось(4555)ТО заменить(4555, 2) КОНЕЦ ЕСЛИ

КОНЕЦ ПОКА

12 Следующая ⇒