Что будет выведено на экран? и кратко описать как получили ответ 1. var i, m, d: integer; day: array[1..7] of integer; begin day [1]: =79; day[2]: =25; day [3]: =67; day[4]: =80; day [5]: =63; day[6]: =17; day [7]: =68; d: = 1; m: = day [1]; for i: =2 to 7 do begin if day [i] > m then begin m: = day [i]; d: =i end end; write(d); end. 2. var i, k, d: integer; e: array[1..12] of integer; begin e[1]: =125; e[2]: =234; e[3]: =168; e[4]: =89; e[5]: =108; e[6]: =86; e[7]: =108; e[8]: =648; e[9]: =259; e[10]: =386; e[11]: =250; e[12]: =367; d: = 1; k: =e[1]; for i: =2 to 12 do begin if e[i] < k then begin k: =e[i]; d: =i end end; write(d); end. 3. var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 7; dat[2] : = 9; dat[3] : = 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 8; dat[9] : = 6; dat[10] : = 9; m : = 0; for k : = 1 to 10 do if dat[k] < 7 then begin m : = m + 1 end; 4. var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 25; dat[3] : = 19; dat[4] : = 25; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if k > 9 then begin m : = m + dat[k] end; writeln(m) end. 5. var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 25; dat[3] : = 19; dat[4] : = 25; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 30; for k : = 1 to 11 do if dat[k] < m then begin m : = dat[k] end; writeln(m) end.

👇

Ответ:

EvelinaKPACABA

03.12.2021

1. Данный фрагмент сравнивает первый элемент с последующими, начиная с второго. Если какой-то из них меньше первого, то переменной "d" присваивается индекс массива. Значение: ищет наибольший элемент массива, сравнивая с первым.

ответ: 4.

2. Делает то же самое, что и первый фрагмент, только теперь ищет минимальный элемент массива по отношению первому.

ответ: 6.

3. На экране ничего не будет, так как отсутствует оператор вывода. Если предположить, что строка "Writeln(m);" пропущена и опустить синтаксические ошибки, то суть фрагмента - нахождение количества элементов, меньших 7. Таких элементов три.

ответ: 3.

4. Данный фрагмент суммирует элементы массива, у которых индекс больше 9. Это числа 21 и 27.

ответ: 48.

5. Находит минимальный элемент массива, по отношению к числу "30". Если элемент массива меньше 30, то переменной "m" присваивается элемент массива.

ответ: 19.

4,6(87 оценок)

Открыть все ответы

Ответ:

Russ1357900

03.12.2021

Var a,b:longint;
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.

4,5(21 оценок)

Ответ: