Question

ГОСПАДЕ ПРОШУ ВАС ПОМОГИТЕ ЛЮДИ ДОБРЫЕ
На носитель информации можно записывать файлы А и Б. Определите размер носителя информации в Мегабайтах, если известно что:
1) на носитель информации помещается ровно 2048 файлов А и 2048 файлов Б, и не остаётся свободного места
2) Если записать на носитель информации 4274 А, то останется 16 Кбайт свободного места
3) Если записать на носитель информации 3932 файлов Б, то останется 32 Кбайт свободного места
4) Никакой информации, кроме самих файлов (А или Б) на носителе информации нет.
В ответе запишите число, целое количество Мбайт.

Answer 1

var

 a: array [1..10] of integer;  //Массив из 10 целых элементов

 max, i: integer;  //max - максимальный элемент

 

begin

 max:= 0;  {Присваиваем max минимальное значение, которое он может принять}

 write('Исходный массив:  ');  {Заполняем исходный массив, печатаем его и находим максимальный элемент}

 for i:= 1 to 10 do 

 begin

   a[i]:= random(10);

   write(a[i], '  ');

   if (i mod 2 = 0) and (a[i] > max) then

     max:= a[i];

 end;

 writeln('Максимальный элемент массива среди элементов с четными индексами: ', max);  //Печатаем исходный элемент

end.

Если все правильно, отметь решение как лучшее)

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

Подробнее - на Znanija.com - https://znanija.com/task/21527565#readmore