Uses crt;
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,m,n:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Writeln;
for i:=1 to m do
Write(i:4);
Writeln;
Writeln('-'*4*m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
b[j]:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
b[j]:=b[j]+1;
for i:=1 to m do
if b[i]>0 then Writeln('В столбце ',i,' положительных чисел ',b[i])
else Writeln('В столбце ',i,' нет положительных чисел ');
Readln;
end.
Пробуй поменять
#include<windows.h>
на
#define _WIN32_WINNT 0x0500
#include<windows.h>
Начало.
Оденься.
Если дома кто-нибудь остаётся,попрощайся.
То выйдя из квартиры.
Иначе ...?
Выйди из квартиры.
Закрой дверь.
Коней.
Обычно виртуальный принтер используется для:
Преобразование документов в формат PDF, Djvu или PostScript.Сохранение нескольких документов в один.Преобразование документов в графические файлы, например, в JPEG или TIFF, для представления в универсальном, платформо-независимом формате.Отправка документов на сервер факсимильных сообщений.Добавление возможностей, которые не поддерживает принтер, таких как:печать нескольких страниц на одной без бордюров;печать на бланках;водяные знаки, и другое.Удалённая печать документов через Интернет.
При однобайтовой кодировке символа одно слово займет 8 байт. За минуту читается 160 слов, это 160х8=1280 (Байт).
7 часов - это 7х60=420 минут и за это время можно прочитать слова с общим объёмом 420х1280=537600 байт. 1 Кбайт равен 1024 Байта, поэтому объем в килобайтах составит 537600/1024=525 (Кбайт).
Ответ: 525 КБайт.