Здравствуйте с заданием по информатике на языке Python!! Вот задание и исходный код:
На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (Если забыли, то посмотрите домашнее задание на урок).

Создадим списки для дней недели: Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday.
Для начала, на каждый день будем назначать одно дело.
1) Заполните список строками "нет дел" (подойдет цикл for)
2) Создайте команду "Изменить дело" (edit)
3) Создайте команду "Вывести календарь на неделю" (print)
Теперь, давайте улучшим наш ежедневник.

В нулевом элементе дня недели будем хранить дела на утро, в первом на полдень, во втором на вечер.
1) Создайте команду "Очистить дело" (delete)
2) Создайте команду "Посмотреть дело" (check)
3) Создайте команду help, которая выводит по командам.
Можете добавить любые свои команды.

Исходный код:

Mon = []
Tue = []
Wed = []
Th = []
Fr = []
Sat = []
Sun = []
journal = [Mon, Tue, Wed, Th, Fr, Sat, Sun]
for i in range(0, 7):
journal[i].append('нет дел')

while True:

Суть программы
Input (A[255], input.txt); // Вводим из файла строку в массив А[255]
N = 0; NMax = 0; // Счетчик удачных дней
M = 0; // Счетчик длины массива (он может быть и меньше 255)
Цикл по i от 1 до 255
If (A[i] <> "У") and (A[i] <> "Н") then M = i - 1;
// Как только мы встретили значение, не равное ни У ни Н, так считаем это концом.
Конец цикла по i
If A[1] = "У" then N = 1 // Проверяем 1-ую ячейку
Цикл по i от 1 до M-1
if (A[i] = "Н") and (A[i+1] = "У") then N = 1; // Начало серии У
if (A[i] = "У") and (A[i+1] = "У") then N = N + 1; // Продолжение серии У
if (A[i] = "У") and (A[i+1] = "Н") then // Окончание серии У
     if N >= NMax then NMax = N; // Проверяем длину серии
end if
Конец Цикла по i
Output (output.txt, NMax) // вывод максимальной длины серии в файл.
Конец программы

Сделал с нуля, вот.

Program naconecto;vara:array [1..2,1..2] of integer;b:array [1..2,1..2] of integer;i,j,s,p:integer; BEGINrandomize;s:=0;p:=1;for i:=1 to 2 do  begin    for j:=1 to 2 do      begin        A[i,j]:=random(-100,100);        B[i,j]:=random(-100,100);        if (A[i,j] mod 3 = 0) and (A[i,j] mod 5 = 0) then          begin            s:=s+A[i,j];          end;        if B[i,j]<0 then          begin            p:=p*B[i,j];          end;      end;  end;writeln('npou3BegeHue=',p);writeln('cyMMa=',s);readln;END.

судя по твоей программы ты мыслишь так, когда говорят двумерный массив, ты думаешь что это нужно 2 отдельных массива сделать (получается одномерных), а не 1 (получается двумерный) и суёшь их каждый отдельно в один массив (двумерный), так появляется твой один двумерный, состоящий из двух одномерных. Задача хочет чтобы было два двумерных, например A и B. Ну а чтобы не создавать им 2 элемента внутри, можно рандомные числа ввести, чтобы не мучится вводить. И смотрю храмает в районе записей A[j] и A[i,j]. Разница в том, что в двумерном массиве в Pascal'e запись A[j] когда двумерный массив у тебя выведет все значения у номера столбца (что явл. j например 1), это те что сверху вниз. A[i] выведет значения всех данных первой строки (если I = 1). Чтоб конкретно к яйчейке обратится, нужно указать A[i,j] например A[1,2] будет ячейка первой строки отступом и второго столбца (отступом сверху). Представлять можно таблицой.