Даны 2 массива из n элементов.нужно сравнить сумму массивов,вывести на экран если массивы равны,а если - id219216220200320 от elinashovhalova 20.03.2020 02:27

Question

Информатика: Даны 2 массива из n элементов.нужно сравнить сумму массивов,вывести на экран если массивы равны,а если не равны, то каком в каком из них сумма больше? практически решила,только вот немного запуталась найти ошибку var a: array of integer; b: array of integer; i: integer; s,d,f,n,k: integer; begin writeln ( vvedite n ); readln (n); setlength (a,n); setlength (b,n); randomize; s: =0; d: =0; f: =0; for for k: =0 to n-1 do begin a[i]: =random(100); b[i]: =random(100); if a[i]=b[i] then f: =f+1; end;

elinashovhalova · Accepted Answer

1)var arr: array [1..12] of integer; begin  for var i := 1 to 12 do    arr[i] := random(-48, -83);      writeln(arr[3] + + arr[7] + + arr[11]);end.2)var arr: array [1..9] of double; begin  for var i := 1 to 9 do  begin    arr[i] := random(15, 40);    write(arr[i] + );  end;  writeln();    var max := arr[1];  for var i := 2 to 9 do  begin    if max arr[i] then        max := arr[i];  end;  writeln( Max: + max);end.3)var arr: array [1..15] of integer; begin  for var i := 1 to 9 do  begin    arr[i]...

MOGZ ответил