Var ma:array[1..4,1..5] of integer;
ar:array[1..20] of integer;
k,i,j:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 4 do
begin;
writeln;
for j:=1 to 5 do
begin;
ma[i,j]:=random(-10,10);
if ma[i,j]<0 then
begin;
inc(k);
ar[k]:=ma[i,j];
end;
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar[i]:4);
<span>end.</span>

0 0

3 года назад

Что такое форматирование ( в частности для жесткого диска или дискеты) и его виды.

Екатерина Сорочан [24]

включает в себя разбивку текста на строки(в рамках абзаца)и страницы выбор расположения абзацев отступов и отбивок между абзацами обтекание отдельных абзацев а также видов и начертаний шрифтов эти операции выполняются рузличными текстовыми процессорами с разной степенью АВТОМАТИЗАЦИИ!

суть фармотирования заключается в способности текстового процессора изменять оформление документа на странице

0 0

4 года назад

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

Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прог

Ромашка Ромашка

Const
n=10;
var
m:array[1..n] of integer;
a,p,i:integer;
begin
Write('Введите a,p: ');
Read(a,p);
for i:=1 to n do
begin
m[i]:=a+p*(i-1);
Write(m[i],' ')
end;
Writeln;
end.

Тестовое решение
Введите a,p: -5 8
-5 3 11 19 27 35 43 51 59 67

0 0

4 года назад