Код вот такой, блок-схему сможешь написать по комментам
var a: array [1..100] of integer; n, i, max, min: integer; ans: real; begin writeln('Введите кол-во эллементов массива (от 1 до 100)'); readln(n); // cчитывается кол-во элементов read(a[1]); // cчитывается первый элемент массива max := a[1]; //a[1] принимается за максимальный элемент min := a[1]; //a[1] принимается за минимальный элемент for i := 2 to n do begin // цикл от 2 до n read(a[i]); // cчитывается i-тый элемент массива if (max < a[i]) then // если max меньше нового эллемента обновить max max := a[i] else if (min > a[i]) then // если min больше нового эллемента обновить min min := a[i]; end; ans := max / min; //присвоить переменной ans ответ на задачу writeln(ans); // вывести ответ end.
Во первых вычислим сколько битов имеет рукопись автора для этого 16•64•1024•2048=147483648 битов. нам известно что в одном байте 8 битов. из этого следует 147483648:8=131072 байта. в мегабайте 1000000 байтов. из этого 131072:1000000=0,131072 мегабайта рукописи. а еще нам известно что рукопись имеет 2650 иллюстраций по 6 мегабайткаждая.из этого выходит 2650•6=15900 мегабайт для того чтобы узнать сколько ушло памяти нафлешке 15900+0,131072= 15900,131072≈15900,1311 в одном гиге 1000 мегабайт 15900,1311:1000= 15,9001311 гигабайт. в общем флеш карта заполнена этой рукописью
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
Пример ввода:
Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека