1. определите, что делает следующая программа и какой результат она выдаст на заданном массиве (1,4,0,-1,6). - id837489420220915 от анна10010 15.09.2022 15:30

Question

Информатика: 1. определите, что делает следующая программа и какой результат она выдаст на заданном массиве (1,4,0,-1,6). var a: array[1..5] of integer; i, b: integer; begin b: =a[ 1 ]; for i: =2 to n do if a[i] b then b: =a[i]; writeln(b) end. 2. чему будет равно значение k после выполнения программы? var m, k: integer; begin m: =0; k: =1; while (m 5) do m: =m+1; k: =k+m; writeln(k); end. варианты ответов: а) 2; б) 3; в) 4; г) 5. заранее !

анна10010 · Accepted Answer

program raf105;

const

n = 35;

var

a: array[1..30] of integer;

b: array[1..40] of integer;

c: array[1..n] of integer;

i : integer;

begin

writeln('Заполните массив A');

for i:=1 to 30 do

readln(a[i]);

writeln('Заполните массив B');

for i:=1 to 40 do

readln(b[i]);

writeln('Заполните массив C');

for i:=1 to n do

readln(c[i]);

for i:=1 to 40 do

begin

if (a[i] < 0) or (b[i] < 0) then

begin

writeln('Нет');

break

end;

if c[i] < 0 then

begin

writeln('Да');

break

end;

end.

PascalABC

MOGZ ответил