Нужно найти максимальный элемент главной диагонали матрицы (делфи делаю вот так, но ничего не получается procedure tform1.button2click(sender: tobject); var i, max, j: byte; begin max: =strtoint(stringgrid1.cells[1, 1]); for i: =1 to n do if strtoint(stringgrid1.cells[i, i])> max then max: =strtoint(stringgrid1.cells[i, i]); label2.caption: =floattostr(max); end;

1

2

3

4

5

6

7

8

9

procedure TForm1.Button3Click(Sender: TObject);  //поиск максимального элемента

...

begin

...

 Max:= StrToFloat(strngrd1.Cells[0,0]);//присвоим значение 1 элемента

 for i:=0 to strngrd1.ColCount - 1 do //цикл по столбцам

   for j:=0 to strngrd1.RowCount - 1 do //цикл по строкам

...

end;

С++

#include <iostream>using namespace std;
int main(){ int arr[20]; // Сколько хочешь, столько и ставь // Заполни как хочешь int score = 0; for (int i = 0; i < 20; i++){ if (arr[i] < 13){ score++; }; };}

JAVA

import java.util.*;
import java.lang.*;

class {
public static void main(String[] args){

Scanner sc = new Scanner(System.in); // то для ввода

int arr[] = new int[20]; // Сколько хочешь, столько и ставь
// Заполни как хочешь
int score = 0;
for (int i = 0; i < 20; i++){if (arr[i] < 13){score++;};
}
}

var i,j,k,m: integer;
    s: string;
begin
  k:=0;
  for i:=1 to 1000000 do
  begin
    s:=IntToStr(i);
    m:=0;
    for j:=1 to (length(s) div 2) do
    if s[j]<>s[length(s)-j+1] then m:=1;
    if m=0 then
    begin
      inc(k); continue;
    end;  
    m:=pos('0',s);
    if m>0 then
    begin
      inc(k); continue;
    end;  
    m:=1;  
    for j:=2 to round(sqrt(i)) do 
    if i mod j = 0 then
    begin
      m:=0;
      break;  
    end;  
    if m=1 then inc(k); 
  end;
  k:=1000000-k;
  writeln('осталось чисел: ',k);
end.

осталось чисел: 544011