saa002
?>

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

Информатика

Ответы

Vyacheslavovna1108

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.

chetverikovalex3738

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.

konstantin0112
Ms dos операционная система ms dos (microsoft disk operating system) – самая распространённая ос на 16-разрядных персональных компьютерах, состоит из следующих модулей: базовой системы ввода/вывода (bios); блока начальной загрузки (boot record); модуля расширения базовой системы ввода/вывода (io.sys); модуля обработки прерываний (msdos.sys); командного процессора (command.com); утилит ms dos.каждый из указанных модулей выполняет определённую часть функций, возложенных на ос. места постоянного размещения этих модулей различны. так, базовая система ввода/вывода находится в постоянном запоминающем устройстве (пзу), а не на дисках как все остальные модули. windows 1.0 когда фирма microsoft созвала пресс-конференцию на выставке comdex, проходившей в ноябре 1985 года в лас-вегасе, многие посчитали это событие последним шансом, особенно после того как среда windows не была выпущена, как было обещано, в июне того же года. пресс-конференция плавно перетекла в презентацию нового продукта - microsoft windows 1.0. windows95 windows 95 представляет собой универсальную высокопроизводительную и многопотоковую 32-разрядную ос нового поколения с графическим интерфейсом и расширенными сетевыми возможностями. windows 95 – интегрированная среда, обеспечивающая эффективный обмен информацией между отдельными программами и предоставляющая пользователю широкие возможности работы с мультимедиа, обработки текстовой, графической, звуковой и видео информации. интегрированность подразумевает также совместное использование ресурсов компьютера всеми программами. применяемый в windows 95 защищённый режим не позволяет прикладной программе в случае сбоя нарушить работоспособность системы, надёжно предохраняет приложения от случайного вмешательства одного процесса в другой, обеспечивает определённую устойчивость к вирусам. пользовательский интерфейс windows 95 прост и удобен. в отличие от оболочки windows 3 эта операционная система не нуждается в установке на компьютере операционной системы dos. она предназначена для установки на настольный пк и компьютерах блокнотного типа с процессором 486 или pentium. рекомендуемый размер оперативной памяти (озу) 8-32 мбойт. после включения компьютера и выполнения программ bios операционная система windows 95 автоматически загружается с жёсткого диска. после загрузки и инициализации системы на экране появляется рабочий стол, на котором размещены различные графические объекты. пользовательский интерфейс спроектирован так, чтобы максимально облегчить усвоение этой операционной системы новичками и создать комфортные условия для пользователя.
lpcck2212
Заранее приготовьте кипяченую воду, добавьте в неё 1 ч.л. соли и размешайте. насыпьте в миску нужное колличество мукислегка взбейте яйцо и вылейте в муку,положите подсолнечное масло и начинайте лить кипяченую воду и размешивать ложкой муку до однородной массы,далее собирите тесто, выложите его на стол и начинайте вымешивать, если будет прилипать к рукам, добавьте муки, вам придется приложить не много усилий, чтобы тщательно вымесить тесто до гладкого состояния.  тесто должно быть не мягкое, но и не слишком тугое. тесто положите в холод на 1 час.  приготовьте мясо, я беру 400 грамм свинины и 400 грамм индейки, помелите вместе с луком на мясорубке, посолите, поперчите и добавьте мелко порезанную зелень. для тех кто любит пожирнее, добавьте небольшой кусочек сала в мясорубку.  как приготовить пельмени - рецепт пельменей с фотопосле того как тесто полежало в холоде, начинайте лепить пельмени. у вас есть два варианта, раскатать скалкой большой пласт и вырезать рюмкой ровные кружки для пельменей. я не люблю отходы, поэтому делаю из теста длинную тонкую колбаску. режу её на кусочки по 1 см.,обваливаю их в муке и раскатываю, так и тесто не успевает засыхать и отходов не остается! для того чтобы тесто не прилипало стол, скалку и доску для пельменей тщательно посыпайте мукой.кладите мясо и тщательно разминайте края пельменей, так они не будут развариваться и будут нежными. воду для пельменей поставьте заранее, посолите её и положите лавровый лист. выложите пельмени в кипящую воду, когда вода закипит, проварите их 2-3 минуты и аакуратно шумовкой выложите в миску со сливочным маслом. вкусные пельмени готовы! не забудьте положить пару сюрпризов для ваших друзей!

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

НосовЖелиховская
natalyaionova
kagurkina
boro-1973
AndrukhovichKonovalov
Yurevich1701
nalich8524
Karlova1507
Конычева-музей&quot;260
Maloletkina-marina2
Dmitrievich1871
majorovnatalya5
avto3132
savva-vika
Konstantinovich alekseevna993