Reshenie!

[Дианка лысак]

Решите плиз задачу срочно!Сформировать массив из 6 целых чисел в соответствии с кол-вом уроков в этот день. Вывести на экран.

[Vanta11a]

Берете листочек и формируете массив. Язык - русский рукописный.

[zmey31313]

Что то наподобее писал в блокноте :

program zadacha;
var
  a : array[1..6] of integer;
  i : integer;
begin
  for i := 1 to 6 do
    begin
      write('Введите количество предметов в ', a[i], '-й день.');
      readln(a[i]);
    end;
  writeln('Введите день :');
  readln(i);
  write('количество предметов : ', a[i]);
end.