Информатика, вопрос опубликован 16.03.2019 03:40 DaniilCh1

Написать программу для паскаля : найдите наименьший элемент квадратной таблицы и замените его нулем

Ответы
Ответ добавил: Гость

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

Ответ добавил: Гость

в 1 байте 8 бит,1 кбайте 1024 байтов,то есть

8 бит = 1 байт

1024 байт=1 кбайт

следовательно

1) 640000/8=80000 байт

2) 80000/1024=78,125 кбайт

ответ : 640000 бит = 78,125 кбайт

Ответ добавил: Гость

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

Больше вопросов по информатике