var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;

begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;

for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
end.

0 0

4 года назад

Число EE816 перевести в двоичную систему счисления. Полное решение с указанием формул.

-Айнур -

Каждому символу в 16-ричной системе счисления соответствует набор из 4-х символов в 2-ичной. В частности,
Е = 1110
8 = 1000
Подставляя, получаем ответ: 111011101000
Ответ: 111011101000

0 0

4 года назад

Задан массив A из 13 элементов(2,13,-21,32,7,11,9,-5,4,-15,21.8.3)определить сумму всех элементов,которые больше числа 10 и найт

НИКОЛАЙ323

DATA 2,13,-21,32,7,11,9,-5,4,-15,21,8,3
DIM a(1 TO 13) AS INTEGER
s = 0: k = 0
FOR i = 1 TO 13
 READ a(i)
 IF a(i) > 10 THEN s = s + a(i)
 IF a(i) > 0 THEN k = k + 1
NEXT i
CLS
PRINT "S="; s; ", kol-vo polozhitelnykh="; k

Результат
S= 77 , kol-vo polozhitelnykh= 10

0 0

4 года назад

1.Другое название прикладной программы?(10 букв)2. Обязательная часть программного обеспечения - … системы.(12 букв)3.Файл, соде

mmaarrss [50]

2) Операционная система.

0 0

4 года назад