Const n=10; var a:array[1..n] of integer; i,sum:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(11)-5; write(a[i],' '); end; writeln; sum:=0; for i:=1 to n do if a[i]>0 then sum:=sum+a[i]; writeln('sum=',sum); end.
А) Up & Down б) IBM в) Enter 15) а) Word б) DOS в) Paintbrush 16) 5*30*70 = 10500 символов в тексте, так как каждый символ кодируется 1 байтом, то объем будет равен = 10500 байтов 17) 32*64= 2048 символов на странице, т.к. 1 символ занимает 1 байт, то 1 страница занимает 2048 байтов = 2 Кб 640/2= 320 страниц книги поместится в оперативной памяти 18) 800*600= 480000 точек на экране дисплея 480000*24 =11520000 битов = 1440000 байтов = 1406 Кб требуется для хранения 1 страницы, тогда 1406*4 = 5624 Кб требуется для хранения 4 страниц изображения
Program Ilgiz98; var i: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Программа находит 4-значные числа, которые делятся на 27'); writeln('Список таких чисел:'); for i:=1000 to 9999 do if (i mod 27)=0 then writeln(i); end.
Program Ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5'); write('Введите число N '); readln (n); writeln('*** Вычисляю... ***'); k:=0; writeln('Массив чисел:'); for i:=1 to 20 do begin mass[i]:=random(1000)-500; writeln(mass[i]); if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1; end; writeln(); writeln('Всего найдено ',k,' таких чисел'); end.
var a:array[1..n] of integer;
i,sum:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(11)-5;
write(a[i],' ');
end;
writeln;
sum:=0;
for i:=1 to n do
if a[i]>0 then sum:=sum+a[i];
writeln('sum=',sum);
end.
Пример:
5 -1 -4 4 -5 0 -5 4 5 -3
sum=18