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

1.Каждый студент сделал видео по дисциплине ИКТ. Вам нужно сдать эти задания для проверки на диске. Размер вашего диска составляет 4 ГБ, а размер видео - 8,5 МБ. Сколько видео вы можете скопировать на один диск? Поясните свой ответ.

2.Сколько времени потребуется для передачи файла объемом 4865 Кбайт, если скорость передачи 10 Мбит/с?

3. 50 студентов сделали презентаций по дисциплине ИКТ. У преподавателя имеются флеш-накопители вместимостью только 1 ГБ. Сколько флеш-накопителей понадобится ,чтобы скопировать все задания, если размер презентаций 17,8 МБ. Поясните свой ответ.

4. Формула "= $ A2 + B2 * $ С $ 1" находится в ячейке C2 электронной таблицы. Какие ссылки на ячейки записаны в этой формуле? Какие типы ссылок на ячейки существуют? Дай свое определение? Дайте полный ответ.

(Дать полный ответ,написать определения с поясненими всех видов ссылок)

👇
Открыть все ответы
Ответ:
Вова12345678912
Вова12345678912
28.05.2022
Const
    n = 100;

var
    i, k_max, max, neg_max: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(100) - 50;
        write(a[i], ' ');
    end;
    writeln();
    
    max := a[1];
    k_max := 1;
    neg_max := 0;
    for i := 1 to n do
    begin
        if a[i] > max then begin
            max := a[i];
            k_max := 1;
        end;
        if a[i] = max then k_max := k_max + 1;
        if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
            neg_max := a[i];
    end;
    
    writeln('Max: ', max, ' k=', k_max);
    writeln('Positive: ', max);
    writeln('Negative: ', neg_max);
end.
4,8(84 оценок)
Ответ:
AnyaNaglova
AnyaNaglova
28.05.2022
Const
  n=6; //размерность массива

Var
 ar:array[1..n] of integer;
 i,min,b:integer;
begin
 min:=2147483647; //верхняя граница типа integer
 b:=0; //проверка на наличие минимума - ложь
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
    begin
     min:=ar[i]; //заменяем минимум элементом
     b:=1; //проверка на наличие минимума - правда
    end;
  end;
 if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.
4,6(58 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ