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.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу в паскале. за ранее . на одномерный массив. 3. даны два массива a и b, состоящих из одинакового числа элементов. найти среднее арифметическое элементов каждогомассива и сравнить эти значения. заполнение массива выберите по своему усмотрению.
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.