For i: =1 to n do begin write( c[ ,i, ]= ); readln (c[i]); end * фрагмент программы, предназчен для - id479130420210123 от Asoooollll 23.01.2021 23:08

Question

Информатика: For i: =1 to n do begin write( c[ ,i, ]= ); readln (c[i]); end * фрагмент программы, предназчен для 1 вывода массива в столбец 2 вывода массива в строку 3 формирования массива случайными числами 4 ввода массива с клавиатуры for i: =1 to n do writeln( c[ ,i, ]= ,c[i]); end. * фрагмент программы, предназчен для 1 ввода массива с клавиатуры 2 вывода массива в столбец 3вывода массива в строку 4формирования массива случайными числами

Asoooollll · Accepted Answer

1. Вот так это можно написать коротко, быстро и понятно, если разбираться в современном Паскале. // PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию! function SoD(Self:integer):integer; extensionmethod; begin   while Self 0 do (Result,Self):=(Result+Self mod 10,Self div 10); end; function Diff(Self:array of integer):integer; extensionmethod; begin   Result:=Self.Max.SoD-Self.Min.SoD end; begin   Writeln(ReadArrInteger( Три пятизначных числа: ,3).Diff)...

MOGZ ответил