Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas:array[1..10] of integer; begin

5-9 класс

mas[1]:=12;

mas[2]:=43;

mas[3]:=48;

mas[4]:=56;

mas[5]:=76;

mas[6]:=73;

mas[7]:=36;

mas[8]:=96;

mas[9]:=69;

mas[10]:=25;

k:=0;

m1:=mas[1] div 10 - mas[1] mod 10;

for i:=2 to 10 do begin

m2:=mas[i] div 10 - mas[i] mod 10;

if m1 > m2 then begin

m1:=m2; k:=i;

end;

end;

write(k);

end.

Annaprincesse 05 июня 2014 г., 8:39:30 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
CherryParadiz
05 июня 2014 г., 10:55:04 (9 лет назад)

m1=1-2=-1

m2=4-8=-4  k=3

 

m1=-4

больше нет такого m2 которое удовлетворяет условию  m1 > m2

Ответить

Другие вопросы из категории

укажите пары обьектов,о которых можно сказать ,что они находятся в отношении "обьект-модель":

А)клавиатура-микрофон
Б)река-Днепр
В)болт-чертеж болта
Г)мелодия-нотная запись мелодии
Д)весна-лето

Читайте также

В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учебы семестров (Dat[1] -оценка за первый

семестр, Dat[2] - оценка за второй семестр и т.д.). Определите что будет напечатано в результате выполнения следующего алгоритма:

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;

term:=1; m:=Dat[1];

for k:=2 to 8 do

begin if Dat[k] < m then

begin m:=Dat[k]; term:=k

end end

write (term); end.

Рассмотрите запись алгоритма на знакомом в большей степени вам языке. Обратите внимание, что расшифровать надо значение переменных и определить, что

будет выведено на экран в результате выполнения алгоритма. Необходимо учитывать начальное и конечное значение параметра цикла, начальное значение переменной S.

Определите, что будет напечатано в результате выполнения следуюшего алгоритма, записанного на трёх алгоритмических языках.

Определите, что будет напечатано в результате выполнения следующего алгоритма:

Var s,k: integer;
begin
s:= 100
k:=7
repeat
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат

1. В массиве Day хранятся данные о количестве израсходованных денег за телефон за неделю (Day [1] — данные за понедельник, Day [2] — за вторник и

т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.

Алгоритмический язык алг нач целтаб Day[1:7] цел i, m, d 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] нц для i от 2 до 7 если Day[i] > m то m:= Day[i]; d:=i все кц вывод d кон



Вы находитесь на странице вопроса "Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas:array[1..10] of integer; begin", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.