1) Program Massiv1;
Uses Crt;
var k:array[1..12] of real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 12 do
begin
readln(k[i]);
if (k[i]<0) then Inc(c);
end;
writeln;
writeln;
for i:=1 to 12 do write(k[i]:4:4);
writeln;
writeln('Количество элементов <0:',c);
readkey;
end.
2) Program Massiv2;
Uses Crt;
var m:array[1..10] of integer;
i,c:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0;
for i:=1 to 10 do
begin
readln(m[i]);
if (m[i]=3) then Inc(c);
end;
writeln;
writeln;
for i:=1 to 12 do write(m[i]:4);
writeln;
writeln('Количество элементов =3:',c);
readkey;
end.
В третьем задании видимо имеется ввиду номер элемента этого массива, т.к по условию задачи массив у нас один.
3) Program Massiv3;
Uses Crt;
var m:array[1..8] of integer;
i,c,max:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0;
for i:=1 to 8 do readln(m[i]);
writeln;
writeln;
max:=m[1]
for i:=1 to 8 do
begin
if (m[i]>max) then
begin
max:=m[i];
c:=i
end;
write(m[i]:4);
end;
writeln('Индекс максимального элемента =:',c);
readkey;
end.
4) Program Massiv4;
Uses Crt;
var m:array[1..12] of integer;
i,c,max,sum:integer;
begin
clrscr;
write('Введите элементы массива m:');
c:=0; sum:=0;
for i:=1 to 12 do readln(m[i]);
writeln;
writeln;
max:=m[1]
for i:=1 to 12 do
begin
if (m[i]>max) then
begin
max:=m[i];
c:=i
end;
write(m[i]:4);
end;
for i:=1 to c-1 do sum:=sum+m[i];
writeln('Количество элементов расположенных до max :',с-1);
writeln('Сумма элементов расположенных до max :',sum);
readkey;
end.
В пятом задании видимо имеется ввиду значения элементов массива меньшие чем сумма первого и последнего
5) Program Massiv5;
Uses Crt;
var k:array[1..15] of real;
sum:real;
i,c:integer;
begin
clrscr;
write('Введите элементы массива k:');
c:=0;
for i:=1 to 15 do readln(k[i]);
sum:=k[1]+k[15];
writeln;
writeln;
for i:=1 to 15 do
begin
write(k[i]:4:4);
if (k[i]<sum) tnen Inc(c);
end;
writeln;
writeln('Количество элементов :',c);
readkey;
end.
картинка это 3 этап
1-й этап
Дано:
(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;
(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.
Найти:
s — общую сумму, полученную компанией от продажи билетов за рейс.
2-й этап
Для нахождения s можно вычислить значение следующего выражения:
(40 − а) * х + (120 − b) * х/2.
Здесь а и b — целые величины, s — величина вещественного типа.
3-й этап
1-й этап
Дано:
(40 − а) — количество проданных авиабилетов бизнес-класса по цене хрублей за билет;
(120 − b) — количество проданных авиабилетов экономического класса по цене х/2 рублей за билет.
Найти:
s — общую сумму, полученную компанией от продажи билетов за рейс.
3-й этап
4-й этап
program n_13_63;
var a, b: integer; s, x: real;
begin
writeln (‘Подсчет суммы от продажи билетов’);
writeln (‘Количество а непроданных билетов бизнес-класса’);
readln (a);
writeln (‘Количество b непроданных билетов экономического класса’);
readln (b);
writeln (‘Стоимость билетов бизнес-класса х‘);
readln (x);
s:=(40−a)*x+(120−b)*x/2;
writeln (‘Билетов продано на ‘, s,’ руб.’)
end.
5-й этап
Протестировать программу можно по следующим данным:
а = 39,
b = 119,
х = 2000,
s = 3000.
8 + 23 = 31
31 + 35 = 66
66 - 27 = 39
39 + 5 = 44
44 : 2 = 22
2)
5 + 23 = 28
28 + 35 = 63
63 - 27 = 36
36 + 5 = 41
41 х 2 = 82