(30 )
дана программа по обработке одномерного массива строки программы пронумерованы
а) для каждой строки или группы строк, объясните какие действия выполняет записанный в ней оператор языка
б) сформулируйте для решения, которой создана данная программа
Паскаль
1 номер
program gg1;
var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите числo а');
read(a);
writeln('Введите числo c');
read(c);
writeln('Введите числo b');
read(b);
if (a>=0) and (b>=0) and (c>=0) then begin
a1:=sqrt(a)
b1:=sqrt(b)
c1:=sqrt(c)
writeln(a1)
writeln(b1)
writeln(c1)
end;
else
if (a<0) and (b<0) and (c<0) then begin
a1:=a*a
b1:=b*b
c1:=c*c
writeln(a1)
writeln(b1)
writeln(c1)
end;
else begin
s:=a+b+c; writeln(s); end; end.
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.