bashkirovarima

20.10.2022 18:29

Информатика

Есть ответ 👍

Написать программу в паскале. за ранее . на одномерный массив. 3. даны два массива a и b, состоящих из одинакового числа элементов. найти среднее арифметическое элементов каждогомассива и сравнить эти значения. заполнение массива выберите по своему усмотрению.

239

252

Посмотреть ответы 3

Ответы на вопрос:

cet6990

Информатика

4,7(35 оценок)

uses crt; var a,b: array [1..100] of integer; i,k: integer; sa,sb: real; begin write('введите количество элементов массивов: '); read(k); clrscr; randomize; writeln('массив а: '); for i: =1 to k do begin a[i]: =random(50)-25; b[i]: =random(100)-50; sa: =sa+b[i]; sb: =sb+a[i]; write (a[i]: 4); end; writeln; writeln('массив в: '); for i: =1 to k do write (b[i]: 4); writeln; sa: =sa/k; sb: =sb/k; writeln ('сумма элементов массива а: ',sa); writeln ('сумма элементов массива в: ',sb); if sa> sb then writeln ('ср.(а)> ср.(в)') else if sa< sb then writeln ('ср.(а)< ср.(в)') else writeln ('ср.(а)=ср.(в)'); end.

Znatokkekgg

Информатика

4,6(98 оценок)

var

a,b: array [1..10] of integer;

i: integer;

s1,s2: real;

begin

randomize;

for i: =1 to 10 do begin

a[i]: =random(12)-1;

s1: =s1+a[i];

b[i]: =random(9)+1;

s2: =s2+b[i];

write (a[i],' ');

end;

writeln;

for i: =1 to 10 do write (b[i],' ');

writeln;

s1: =s1/10;

s2: =s2/10;

writeln ('s1 = ',s1);

writeln ('s2 = ',s2);

if s1> s2 then writeln ('s1> s2') else

if s1< s2 then writeln ('s1< s2') else writeln ('s1=s2');

readln;

end.

polinaaaaaaaaaiiii

Информатика

4,6(57 оценок)

1 А

2 В

3 С

4 D

5 E

6 F

7 G

8 H

9 I

10 J

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.