1.Каждый студент сделал видео по дисциплине ИКТ. Вам нужно сдать эти задания для проверки на диске. Размер вашего диска составляет 4 ГБ, а размер видео - 8, 5 МБ. Сколько видео вы можете скопировать на один диск? Поясните свой ответ. 2.Сколько времени потребуется для передачи файла объемом 4865 Кбайт, если скорость передачи 10 Мбит/с? 3. 50 студентов сделали презентаций по дисциплине ИКТ. У преподавателя имеются флеш-накопители вместимостью только 1 ГБ. Сколько флеш-накопителей понадобится , чтобы скопировать все задания, если размер презентаций 17, 8 МБ. Поясните свой ответ. 4. Формула "= $ A2 + B2 * $ С $ 1" находится в ячейке C2 электронной таблицы. Какие ссылки на ячейки записаны в этой формуле? Какие типы ссылок на ячейки существуют? Дай свое определение? Дайте полный ответ. (Дать полный ответ, написать определения с поясненими всех видов ссылок)
Ответы
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
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.