Выведите на экран одномерный массив, раскрасив в нём синим цветом первый кратный 5 элемент.

Я не буду расписывать всё по разным классам, поэтому человек в одной программе будет только один!!

package com.project;

import java.util.Scanner;

public class Name {

public static int all_marks = 0;

public static int reckoning(int mark) {

return Name.all_marks += mark;

}

public static void diplom(String name) {

if (Name.all_marks > 80) {

System.out.println("Диплом") ;

System.out.println("Награждается: " + name);

System.out.println("За набранное количество в размере: " + Name.all_marks);

}

else if ((Name.all_marks > 50) && (Name.all_marks <= 80)) {

System.out.println("Сертификат") ;

System.out.println("Награждается: " + name);

System.out.println("За набранное количество в размере: " + Name.all_marks);

}

else

System.out.println("Сертификат участника");

}

public static void main(String[] args) {

Scanner in = new Scanner(System.in);

String name;

int num_lessons, marks;

System.out.print("Enter a student's name: ");

name = in.nextLine();

System.out.print("Enter the number of items that are surrendered by a student " + name + ": ");

num_lessons = in.nextInt();

for (int i=1; i<=num_lessons; i++) {

System.out.print("Enter the number of points a student has scored for " + i + " lesson: ");

marks = in.nextInt();

reckoning(marks);

}

diplom(name);

}

}

1. Для матрицы 3* 3 обнулить все элементы с четным значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
     x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
             if a[x,y] mod 2=0 then a[x,y]:=0;
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do begin
         for y:=1 to n do
             write(a[x,y]:4);
         writeln;
     end;
end.

2. Для матрицы 3*3 целых чисел найти индексы элементов с нулевым значением. Результат вывести на экран.
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;
    x,y: integer;
begin
     for x:=1 to n do begin
         for y:=1 to n do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     writeln;
     for x:=1 to n do
         for y:=1 to n do
             if a[x,y]=0 then writeln(x,',',y);
end.