Информатика, опубликовано 09.01.2019 16:01
!
ЗАПИСАН 4-МИНУТНЫЙ ВИДЕОРОЛИК. ВИДЕО С РАЗРЕШЕНИЕМ 768 НА 460 ПИКС., ГЛУБИНОЙ ЦВЕТА 12 БИТ И ЧАСТОТОЙ КАДРОВ 50 КАДРОВ В СЕК. МОНО ЗВУК С ЧАСТОТОЙ ДИСКРЕТИЗАЦИИ 64КГЦ ГЛУБИНОЙ КОДИРОВАНИЯ 12 БИТ. КАКОЕ ИЗ ЧИСЕЛ БЛИЗКО К РАЗМЕРУ ПОЛУЧЕННОГО ВИДЕОФАЙЛА В МБ
1. 5860
2.5086
3.6085
4.6058
ПОЛНОСТЬЮ С РЕШЕНИЕМ
Ответ оставил: Гость
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