Информатика, опубликовано 07.06.2020 00:48
Информатика и быстро сделайте
Ответ оставил: Гость
Рассматриваются значения массива с индексами от 1 до 3.
За некоторый максимум (max) мы взяли значение R[1] = 12.
Если просматриваемое значение больше максимума, то принимаем это значение как максимум.
Просмотрим все значения (от 1 до 3):
R[1] = 12 > max? 12 > 12? Условие не выполняется, значение максимума остаётся прежним.
R[2] = 34 > max? 34 > 12? Условие выполняется, максимум (max) становится равным R[2] = 34.
R[3] = -53 > max? -53 > 34? Условие не выполняется, значение максимума остаётся прежним.
Ответ: 34.
За некоторый максимум (max) мы взяли значение R[1] = 12.
Если просматриваемое значение больше максимума, то принимаем это значение как максимум.
Просмотрим все значения (от 1 до 3):
R[1] = 12 > max? 12 > 12? Условие не выполняется, значение максимума остаётся прежним.
R[2] = 34 > max? 34 > 12? Условие выполняется, максимум (max) становится равным R[2] = 34.
R[3] = -53 > max? -53 > 34? Условие не выполняется, значение максимума остаётся прежним.
Ответ: 34.
Ответ оставил: Гость
Program ar;
Var a:array [1..3] of array [1..4] of integer;
i, j, min, sum:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i][j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i][j] > 10 then write(a[i][j], );
writeln;
min:=a[2][1];
for j:=1 to 4 do
if a[2][j] < min then min:=a[2][j];
writeln(min);
for i:=1 to 3 do
begin
sum:=0;
for j:=1 to 4 do
sum:=sum + a[i][j];
write(sum, );
end;
end.
Var a:array [1..3] of array [1..4] of integer;
i, j, min, sum:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i][j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i][j] > 10 then write(a[i][j], );
writeln;
min:=a[2][1];
for j:=1 to 4 do
if a[2][j] < min then min:=a[2][j];
writeln(min);
for i:=1 to 3 do
begin
sum:=0;
for j:=1 to 4 do
sum:=sum + a[i][j];
write(sum, );
end;
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01