Решить данную задачу на паскале ! ДАм кучу баллов.

Знания

Информатика

1 ответ:

salmin4 года назад

0 0

Смотри вложение..............

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

10.Переписать положительные элементы двумерного массива в одномерный массив. Вывести на экран эти массивы

enlay

Uses crt;
const N=3;M=3;
L=9;
var a:array [1..N,1..M] of real;
b:array [1..L] of real;
i,j,x,k:integer;
begin
x:=1;
for i:=1 to N do
for j:=1 to M do
begin
read(a[i,j]);
if a[i,j]>0 then
begin
b[x]:=a[i,j];
x:=x+1;
end;
end;
clrscr;
for i:=1 to N do
begin
for j:=1 to M do
write(a[i,j]:3:0);
writeln;
end;
writeln;
for k:=1 to x-1 do
write(b[k],' ');
<span>end.</span>

0 0

4 года назад

Определите,какое количество информации необходимо, чтобы закодировать каждый цвет в палитре из 128 цветов

Наталия Гавычева [93]

1цвет=1байт
<span>128*8=1024бит</span>

0 0

4 года назад

С помощью датчика случайный чисел на интервале от 25 до 100 получить целочисленный массив состоящий из 27 элементов ( пожалуйста

Мартаnb [29]

Program n1;
var a: array[1..27] of integer;
i: integer;
begin
randomize;
for i:=1 to 27 do a[i]:=random(76)+25;
end.

0 0

4 года назад