uses Crt; const N=5; type Mas=array [1..N, 1..N] of integer; var i, j , Sum: integer; A: Mas; begin ClrScr; Sum:=0; for i:=1 to N do for j:=1 to N do A[i,j]:=10+random(90);
for i:=1 to N do for j:=1 to N do if (A[i,j] mod 2<>0) then Sum:=Sum+A[i,j];
for i:=1 to N do begin for j:=1 to N do Write (A[i,j]:4); WriteLn; end; WriteLn; WriteLn(' S = ', Sum); ReadLn; end.
Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
1. Определим объем памяти, который занимает одна страница. Символ текста кодируется 16 битами или 16/8=2 байтами. 1024 символа займут 1024х2=2048 байт. Рисунок состоит из 256х128=32768 точек, а цвет каждой точки кодируется 16 битами или 16/8=2 байтами. Следовательно, рисунок займет 32768х2=65536 байт. Итого страница займет 2048+65536=67584 байт 2. Определим объем книги. В книге 512 страниц, поэтому её объем составит 512х67584=34603008 байт. Используем для ответа более крупные единицы. 34 603 008 / 1 024 = 33 792 Кбайта 33 792 / 1024 = 33 Мбайта ответ: книга имеет объем 33 МБ
uses Crt;
const N=5;
type Mas=array [1..N, 1..N] of integer;
var i, j , Sum: integer;
A: Mas;
begin
ClrScr;
Sum:=0;
for i:=1 to N do
for j:=1 to N do
A[i,j]:=10+random(90);
for i:=1 to N do
for j:=1 to N do
if (A[i,j] mod 2<>0) then Sum:=Sum+A[i,j];
for i:=1 to N do
begin
for j:=1 to N do
Write (A[i,j]:4);
WriteLn;
end;
WriteLn;
WriteLn(' S = ', Sum);
ReadLn;
end.