3 года назад

Дан двухмерный массив , в его нечетных строках найти минимальный элемент.

Знания

Информатика

1 ответ:

kuzbasik [17]3 года назад

0 0

<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3> $\\$ </h3><h3 />

begin

MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)

.SelectMany(t->t).Min.Println;

end.

<em><u>Пример в приложении.</u></em>

Читайте также

25. В Паскале. Дано натуральное число n. Вычислить разность между суммой и произведением цифр заданного числа.

Kris95 [50]

Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
   Begin
   P:=P*(n mod 10);
   S:=S+n mod 10;
   n:=n div 10
   End;
WriteLn('S - P = ',S-P)
End.

0 0

4 года назад

Прочитать ещё 2 ответа

Алг нач цел¬таб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0

SATANENOK

Элементов в массиве больших 3 шесть. Значит в конце выполнения цикла значение переменной m = 6

Ответ: 6

0 0

4 года назад

Составить алгоритм нахождения площади прямоугольника

Ладаси

Могу в Паскале написать

0 0

4 года назад

Разработать программу для перевода целых чисел из десятичной системы счисления в троичную и пятеричную. Перевод оформить в виде

Nast9slastena [7]

Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;

var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>

0 0

4 года назад

Расcчитайте объем видеопамяти необходимый для представления одноминутного фильма на экране монитора c пространственным разрешени

SkyFire

При палитре 256 цветов для хранения 1 пикселя необходимо
log(2)256=8 бит=1 байт
Для 1 кадра: 800*600*1 байт
Для фильма длительность 1 секунда: 800*600*16 байт
Для фильма длительностью 1 мин:
800*600*16*60 байт = 800*600*16*60/1024 Кбайт = 450 000 Кбайт ≈
440 Мбайт

0 0

4 года назад