1.
program nom1;
const n=8;
var a:array[1..n] of integer;
i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.

2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end.

3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
c:=c+1;
writeln('Kол-во прошедших = ',c);
end.

0 0

4 года назад

Укажи, в каком виде представлена информация в следующем примере: объявление в газете об аренде недвижимости Для ответа используй

Jijok [50]

Визуальная!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0 0

4 года назад

Постройте алгоритм и составьте программу, по которой будет реализован следующий сценарий: компьютер запрашивает номер дня недели

Ростовчанка Олеся [5.7K]

Var
i:integer;
begin
readln(i);
if i<=7 then
case i of
1:writeln('Это понедельник');
2:writeln('Это вторник');
3:writeln('Это среда');
4:writeln('Это четверг');
5:writeln('Это пятница');
6:writeln('Это суббота');
7:writeln('Это воскресенье');
end
else
writeln('Число слишком большое');
<span>end.</span>

0 0

4 года назад

Единица хранения информации в памяти компьютера является

rfndi [56]

По-моему бит а там не знаю

0 0

4 года назад

Существует ли Pascal на айфон?

Бабамурат

https://rextester.com/l/pascal_online_compiler

Вот ссылка на онлайн компилятор

0 0

4 года назад

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