М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
juliacollins5
juliacollins5
03.01.2022 16:42 •  Информатика

В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т. д.). Определите число, которое будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках. Алгоритмический язык Бейсик Паскаль
алг
нач
целтаб Dat[1:7]
цел k, m, day
Dat[1]:=7; Dat[2]:=9
Dat[3]:=10; Dat[4]:=8
Dat[5]:=6; Dat[6]:=7
Dat[7]:=6
day:= 1; m:=Dat[1]
нц для k от 2 до 7
если Dat[k] < m то
m:=Dat[k]; day:=k
все
кц
вывод day
кон DIM Dat(7) AS INTEGER
Dat(1)=7: Dat(2)=9
Dat(3)=10: Dat(4)=8
Dat(5)=6: Dat(6)=7
Dat(7)=6
day = 1: m=Dat(1)
FOR k = 2 TO 7
IF Dat(k) < m THEN
m=Dat(k)
day=k
END IF
NEXT k
PRINT day
END Var k, m, day: integer;
Dat: array[1..7] of integer;
Begin
Dat[1]:=7; Dat[2]:=9;
Dat[3]:=10; Dat[4]:=8;
Dat[5]:=6; Dat[6]:=7;
Dat[7]:=6;
day:= 1; m:=Dat[1];
for k:=2 to 7 do begin
if Dat[k] < m then begin
m:=Dat[k]; day:=k
end
end;
write(day);
End.

👇
Открыть все ответы
Ответ:
kattun
kattun
03.01.2022

Целое, целочисленный тип данных (англ. Integer), в информатике — один из и самых рас типов данных в языках программирования. Служит для представления целых чисел.

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

В программировании различают беззнаковые целые числа и целые числа со знаком. Знак числа обычно кодируется старшим битом машинного слова. Традиционно, если старший бит равен 1, то число считается отрицательным, только, если оно не определено как беззнаковое.

Количество чисел в машинном

4,6(78 оценок)
Ответ:

Объяснение:

Var a,b:array [1..100,1..100] of real;

   current_row,current_column,rows,columns:integer;

begin

 readln(rows);

 readln(columns);

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do begin

     read(a[current_row,current_column]);

     b[current_row,current_column] :=a [current_row,current_column] / 8;

   end;

 end;

 for current_row := 1 to rows do begin

   writeln();

   for current_column := 1 to columns do

     write(b[current_row,current_column]:4, ' ');

 end;

end.

4,5(87 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ