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;
Серый, потому что там поровну всех цветов.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords()[1].Length)
end.
<u>Пример</u>
> А роза упала на лапу Азора
4
Var a = [0, ...] - Множество, состоящее из чисел.
console.log(a) - выводит "a" в консоль.
var f1 = 0 - объявление переменной целого типа и инициализация её нулем.
for(i=0;i<a.length-1;i++) - цикл от нуля до a.length - 1 с шагом 1.
{
if(a[i] >=a[i+1]) { - если "a" iтое больше либо равно "a" iтому + 1 тогда
f1=1; - присваивание переменной f1 числа 1.
break; - остановка цикла.
}
}
if(f1 == 1) { - если f1 равно 1 тогда
for(i=0;i<a.length-1;i+=4) { - цикл от нуля до a.length - 1 с шагом 4.
a[i] *= 2; - значение "a" iтое умножается на 2. (все содержимое a[i])
}
}