Ученик скачал файл объёмом 15 мегабайт содержащий контрольную работу информация по каналу связи передаётся со скоростью 2.5 килобайт в секунду какое время понадобится для скачивания файла
Для случайных чисел: var a: array[1..5] of integer; i: integer; begin randomize; for i: =1 to 5 do a[i] : = random(100); for i: =1 to 5 do write(a[i], ' '); writeln; for i: =1 to 5 do a[i] : = a[i] * i; for i: =1 to 5 do write(a[i], ' '); end. для ручного заполнения: var a: array[1..5] of integer; i: integer; begin for i: =1 to 5 do readln(a[i]); for i: =1 to 5 do write(a[i], ' '); writeln; for i: =1 to 5 do a[i] : = a[i] * i; for i: =1 to 5 do write(a[i], ' '); end.
srvsm
09.06.2022
Dim a(6) for i = 1 to 6 input a(i) next i min = a(1) max = a(1) imin = 1 imax = 1 for i = 2 to 6 if a(i) < min then min = a(i) imin = i end if if a(i) > max then max = a(i) imax = i end if next i if imin < imax then for i = imin + 1 to imax - 1 if a(i) > 0 then sum = sum + a(i) k = k + 1 end if next i print "summa="; sum, "k="; k else print "решения нет" end if
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Ученик скачал файл объёмом 15 мегабайт содержащий контрольную работу информация по каналу связи передаётся со скоростью 2.5 килобайт в секунду какое время понадобится для скачивания файла