Написать программу для решения следующей задачи. N чертят наколдовали M яблок. Определить: 1. Сколько яблок досталось каждому чертенку, если они разделили их поровну. Резать яблоки старый черт им не разрешил. 2. Сколько яблок осталось после дележки 3. Сколько яблок нужно еще наколдовать, чтобы после деления остатка не было. Всё это нужно на языке Паскаль.

1) M / N

2) M % N

3) M - M % N

Как я понял,нужно было вывести главную и побочную диагонали.

Ошибки:

пропущены скобки,как обычные так и фигурные;пропущены знаки ";","<" и т.д.;

Легче было заново написать чем исправлять.

Вот мой код:

import java.util.Scanner;

public class Main{

public static void main (String [] args){

 Scanner in = new Scanner (System.in);

 int n = in.nextInt();  

 int mass[][] = new int [n][n];

 int i,j;

 

 for(i=0;i<n;i++){

  for(j=0;j<n;j++){

   mass[i][j]=in.nextInt();

  }

 }

 

 for(i=0;i<n;i++){

  for(j=0;j<n;j++){

   if((i==j) || j==(n-1-i)){

    System.out.print("x");

   }else System.out.print(mass[i][j]);

   

  }

  System.out.println();

 }

 

 in.close();  

}

}

Объяснение:

Краткий алгоритм программы:Импортируем Scanner;Объявляем переменную in типа Scanner,для ввода;Объявляем переменную n типа int,для хранения размера массива;Объявляем две переменные i и j типа int,для циклов;В первом "двойном" цикле мы заполняем массив числами;Во втором "дойном" цикле мы мы сравниваем индексы массива и выводим результат;Закрываем Scanner;

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=7;

Var
 ar:array[1..n] of integer; //массив дней
 i,k:integer;
 sr:real;
begin
k:=0; //счётчик превысивших
 for i:=1 to n do
   begin
   readln(ar[i]); //вводим дни
   sr:=sr+ar[i]; //заодно вычисляем сумму дневных температур
  end;
 sr:=sr/n; {делим сумму на количество дней, получаем среднюю температуру}
 for i:=1 to n do
   if sr<ar[i] then inc(k); {если температура некотрого для выше средней, увеличиваем счётчик}
 writeln('Средняя температура=',sr,', за неделю ', k,' дней превысили эту температуру');
end.

Пример ввода:
1
2
...
7
Пример вывода:
Средняя температура=4, за неделю 3 дней превысили эту температуру