Pascal abc
дан одномерный массив вещественных чисел x(n), составить программу,
которая бы все элементы массива х, начиная с первого положительного
элемента, разделила на два, остальные элементы увеличила на два. элементы
массива ввести с клавиатуры.(змск)
Ответы на вопрос:
ответ:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
var n: byte;
procedure vvod(var a: mas; c: char);
var i: byte;
begin
writeln('исходный массив ',c);
for i: =1 to n do
begin
a[i]: =-5+15*random;
write(a[i]: 5: 1)
end;
writeln
end;
procedure poloz(var a: mas; k: real; c: char);
var i: byte;
begin
writeln('измененный массив ',c);
for i: =1 to n do
begin
if a[i]> 0 then a[i]: =a[i]+k;
write(a[i]: 5: 1)
end;
writeln
end;
var a,b: mas;
k: real;
begin
randomize;
repeat
write('размер массивов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
write('введите число для изменения положительных k=');
readln(k);
vvod(a,'a');
poloz(a,-k,'a');
vvod(b,'b');
poloz(b,k,'b');
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Дженнa20.05.2023 20:19
-
qwerty112715.11.2022 17:56
-
Zhenya209925.03.2023 16:09
-
adile199113.01.2021 07:59
-
eva44478618.02.2020 13:26
-
УмникРазумник22823.08.2021 03:13
-
danil25037927.08.2021 03:49
-
LikaKostukova11.05.2020 22:21
-
ghhgbg20.11.2021 09:15
-
MaarioForte07.06.2021 20:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.