Составить программу на языке паскаль: 1)для массива k из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)в массиве м из 10 целых чисел найти количество элементов равных 3. 3)в массиве из 8 целых найти номер массива с наибольшим значением. 4)в массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Ответы на вопрос:
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.
Популярно: Информатика
-
малака28.02.2023 15:26
-
ОМЛА27.03.2023 16:54
-
Frizi426.07.2020 23:15
-
HKL1128.01.2022 19:44
-
классоопп14.07.2021 12:49
-
МиллкаВах05.10.2021 14:34
-
grenki47622.10.2022 19:09
-
historican05.05.2021 05:40
-
polina200412102.10.2021 21:26
-
Оля14276811.01.2021 23:12