NortonCommander - Файловый менеджер WinRar - Программа архивирования keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки «1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта
MSWord, Блокнот - текстовые редакторы MSExcel - табличный редактор MSAccess - реляционная СУБД 3DStudio - редактор трёхмерной графики Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования Linux, Windows7 - Операционные системы AdobePhotoshop, Paint - графический редактор MacromediaFlash - медиа-плеер Компас 3D - САПР(Система автоматизированного проектирования) QIP - интернет-пейджер AVP Касперского, DrWeb - антивирусная программа OutlookExpress - почтовый клиент и органайзер HTML - язык гипертекстовой разметки NeroPremium - программа записи дисков «Консультант Плюс» - Справочная система
P.S. Вроде всё описал, если нужны объяснения пишите
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],' '); end.
WinRar - Программа архивирования
keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки
«1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта
MSWord, Блокнот - текстовые редакторы
MSExcel - табличный редактор
MSAccess - реляционная СУБД
3DStudio - редактор трёхмерной графики
Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования
Linux, Windows7 - Операционные системы
AdobePhotoshop, Paint - графический редактор
MacromediaFlash - медиа-плеер
Компас 3D - САПР(Система автоматизированного проектирования)
QIP - интернет-пейджер
AVP Касперского, DrWeb - антивирусная программа
OutlookExpress - почтовый клиент и органайзер
HTML - язык гипертекстовой разметки
NeroPremium - программа записи дисков
«Консультант Плюс» - Справочная система
P.S. Вроде всё описал, если нужны объяснения пишите
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],' ');
end.