М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AvdAda24
AvdAda24
31.03.2023 22:54 •  Информатика

Нужно найти максимальный элемент главной диагонали матрицы (делфи). делаю вот так, но ничего не получается 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;

👇
Ответ:
Katushka123123
Katushka123123
31.03.2023

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;

4,8(67 оценок)
Открыть все ответы
Ответ:
060609
060609
31.03.2023
С++

#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++;};
}
}
4,7(82 оценок)
Ответ:
Darkhan06
Darkhan06
31.03.2023
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
4,7(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ