-
Вопрос по информатике:
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;
-
Автор:
zack48
-
-
Ответ:
Ладно, побуду добрым.
Если там так Dat(k) > m
for k:- 2 to 8 do
if Dat(k) > m then
begin
m :- Dat (k):
term :- k;
end;
То ответ такой:
Тут мы ищем максимальный элемент и запоминаем его позицию в переменной term
самые большие в массиве-это 8
И первая 8 имеет номер 4, значит ответ:4
Если же там так:
for k:- 2 to 8 do
if Dat(k) < m then
begin
m :- Dat (k):
term :- k;
end;
То ответ такой:
Тут мы ищем минимум элемент и запоминаем его позицию в переменной term
самые большие в массиве-это 4
И первая 4 имеет номер 5 значит ответ:5
Если же там так:
for k:- 2 to 8 do
if Dat(k) <= m then
begin
m :- Dat (k):
term :- k;
end;
То ответ такой:
Тут мы ищем минимум элемент и запоминаем его позицию в переменной term
самые большие в массиве-это 4
И последняя 4 имеет номер 7 значит ответ:7
-
Вопрос по русскому языку:
"Нынешняя осень была особенно радостной и светлой. Ликующей. С каждым днем все яснее виделась гибель лета, и осень торжествовала над умирающим противником в упоительной желтизне и оранже..
Пошел дождь и, не обращая внимания на этот драгоценный дар неба, по улицам сновали люди. Они вылезали из такси, громко хлопнув дверцей, изучали витрины магазинов или, проходя мимо, окидывали их взглядом, стояли на остановках трамваев, мимоходом договаривались о встречах. И у многих в руках были зонтики, милые и добрые механизмы. Самое невинное, что изобрели люди.
Затем опять показалось солнце, выставляя на тротуарах мокрые, озябшие листья и запах палых листьев, острый осенний запах будоражил душу и заполнял ее ни с чем несравнимой тоской. Но не ноющей, а сладкой и веселой тоской, словно люди, бредущие в сумерках, по осеннему городу, были не действительностью, а дорогим воспоминаньем."
1. Выпишите грамматическую основу первого предложения текста. Определите тип сказуемого.
2. Перестройте третье предложение таким образом, чтобы там появилось распространённое обособленное согласованное определение. Запишите получившееся предложение
3. Чем осложнено последнее предложение второго абзаца?
4. Сделайте полный синтаксический разбор предложения второго предложения второго абзаца.
План разбора
1) По цели высказывания: повествовательное, вопросительное или побудительное.
2) По интонации: восклицательное или невосклицательное.
3) Распространенное или нераспространенное.
4) Полное/неполное
5) Определить и подчеркнуть грамматическую основу. Подписать части речи, которыми они выражены. Подписать тип сказуемого.
6) Подчеркнуть все второстепенные члены предложения, подписать части речи.
7) Написать, чем осложнено это предложение.-
Ответов: 1
-
6 лет назад
-
-
Вопрос по информатике:
Задание 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: 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.
-
Ответов: 1
-
6 лет назад
-
-
Вопрос по геометрии:
Одна из двух данных плоскостей параллельна плоскости a, а другая перпендикулярна этой плоскости. Доказать, что данные плоскости перпендикулярны.-
Ответов: 1
-
6 лет назад
-