www.procp.ru

Доска объявлений

Паскаль!Дан целочисленный массив размером n (n - const). Заполнить массив случайными числами от a до b (a, b вводятся с клавиатуры). Найти среднее арифметическое значение элементов массива.Вот что у меня получилось: Program qqq; const a=5; b=5; var n:array [a..b] of integer; i:integer; begin randomize; Write(Изначальный массив:); Writeln; for i:=a to b do n:=random (100)-50; Write (a:5); Writeln (Среднее арифмитическое= ,((a+b)/2)); end. Помогите! От этого зависит моя четверная и годовая оценка!P.S. Пишите, пожалуйста, наиболее простыми понятиями (без function search, procedure, uses и т.д.)

4 Replies to “Паскаль!Дан целочисленный массив размером n (n - const). Заполнить массив случайными числами от a до b (a, b вводятся с клавиатуры). Найти среднее арифметическое значение элементов массива.Вот что у меня получилось: Program qqq; const a=5; b=5; var n:array [a..b] of integer; i:integer; begin randomize; Write(Изначальный массив:); Writeln; for i:=a to b do n:=random (100)-50; Write (a:5); Writeln (Среднее арифмитическое= ,((a+b)/2)); end. Помогите! От этого зависит моя четверная и годовая оценка!P.S. Пишите, пожалуйста, наиболее простыми понятиями (без function search, procedure, uses и т.д.)”
  1. Скайп - клевая книгу, заходите также на классный сайт по игре [url=tes5skyrim.nte]TES 5: Skyrim[/url]

  2. Чуть ли не единственный, кому до сих пор приносят человеческие жертвоприношения. О всех непредвиденных случаях немедленно докладывайте.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *