-
Вопрос по информатике:
Var k, m: integer;
Dat: array(1..10) of integer;
Begin
Dat (1) i= 12; Dat (2) - 15;
Dat (3) := 17; Dat (4) re 15;
Dat (5] : 14; Dat (6) := 12;
Dat [7] := 10; Dat [8] : 13;
Dat (9) * 14; Dat (10) * 15;
m := 20;
for k:=1 to 10 do
if Dat (k) < m then
begin
m : Dat(k):
end;
writeln(m):
End.
-
Автор:
kobe
-
Еще 4 ненужных тебе вопроса, но это важно для поиска
-
Вопрос по информатике:
Задание 3.
В таблицe Dat хранятся отметки учащихся 9 класса за самостоятельную
работу Определите, какое число будет напечатано в результате работы
следующей программы.
Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat [1] := 4; Dat (2) := 5;
Dat (3) := 4; Dat [4] := 3;
Dat (5) := 2; Dat [6] := 3;
Dat [7] := 4; Dat (8) := 5;
Dat [9] :=5; Dat [10] :=3;
m := 0;
for k := 1 to 10 do
if Dat[k] < 4 then
begin
m:= m + Dat[k];
end;
writeln (m);
End.
-
Ответов: 1
-
6 лет назад
-
-
Вопрос по информатике:
Var k, m, term: integer;
Dat: array(1..8] of integer;
Begin
Dat [1] := 7; Dat [2] := 7;
Dat [3] := 6; Dat (4) != 8;
Dat (5] := 4; Dat[6] := 5;
Dat [7] := 4; Dat [8] := 7;
m :- Dat(1);
term := 1;
for k:= 2 to 8 do
if Dat [k] begin
m := Dat[k);
term := k;
end;
writeln(term);
End.
Var k, m, day: integer;
-
Ответов: 1
-
6 лет назад
-
-
Вопрос по геометрии:
Одна из двух данных плоскостей параллельна плоскости a, а другая перпендикулярна этой плоскости. Доказать, что данные плоскости перпендикулярны.-
Ответов: 1
-
6 лет назад
-
-
Вопрос по математике:
Магазин в первый день продал 40% всех тетрадей,во второй-25% всех тетрадей,а в третий-остольные 140 тетрадей Сколько тетрадей продал магазин во 2 день?-
Ответов: 2
-
6 лет назад
-