museumuzl
?>

Ввести с клавиатуры массив из 5 элементов, найти сумму и произведение элементов этого массива. пример: введите пять чисел : 4, 15, 3, 10, 14 среднее арифметическое: 9, 200

Информатика

Ответы

Fedorovich309
Program a;
var sum,n,ymn,sred: real;
i: integer;
mas : array[1..5] of integer; 
begin
  sum:=0;
  ymn:=1;
  writeln('Укажите пять чисел');
    for i:=1 to 5 do
      begin
          read (mas[i]); sum:=mas[i]+sum;
          ymn:=mas[i]*ymn;
          sred:=sum/5;
      end;
writeln('Сумма элементов = ',sum,'  Произведение элементов = ',ymn,' Среднее арифметическое = ',sred);
end.
LidiyaBorzikh
1.Информация — сведения о чём-либо, независимо от формы их представления.
2.Информатика наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений.
3.Внутренние свойства — это свойства, органически присущие объекту. Они обычно «скрыты» от изучающего объект и проявляют себя косвенным образом при взаимодействии данного объекта с другими.
Внешние свойства — это свойства, характеризующие поведение объекта при взаимодействии с другими объектами.
4.Логическая информация, адекватно отображающая объективные закономерности природы, общества и мышления, по­лучила название научнойинформации. Ее делят по областям полу­чения или использования на следующие виды:политическая,техническая,биологическая,химическая,физическая и т.д.;по назначению - на массовую и специальную.
6. Бит, байт, килобит, мегабайт, гагабайт.
7.  Система счисления, в которой значение каждого числового знака (цифры) в записи числа зависит от его позиции (разряда).
ЮлияНиколаевна1748

Program raf105;

type Info = record

 family: string;

 year: integer;

 Score: record

   exam1: byte;

   exam2: byte;

   exam3: byte;

 end;

end;

const

 n = 3; // Количество студентов

var

 Students: array[1..n] of Info;

 i, goodStud, badStud, students1989Count, students1989ScoreSum: integer;

 midScore1989: real;

begin

 writeln('Введите информацию о ',n,' студентах');

 for i:=1 to n do

 begin

   writeln(' Студент ',i);

   write('Фамилия: ');

   readln(Students[i].family);

   write('Год рождения: ');

   readln(Students[i].year);

   writeln('Введите информацию о его оценках (от 1 до 5)');

   write('Оценка за 1 экзамен: ');

   readln(Students[i].Score.exam1);

   write('Оценка за 2 экзамен: ');

   readln(Students[i].Score.exam2);

   write('Оценка за 3 экзамен: ');

   readln(Students[i].Score.exam3);

   if Students[i].year <= 1989 then

     begin

      students1989Count:= students1989Count + 3;

      students1989ScoreSum:= students1989ScoreSum + Students[i].Score.exam1 + Students[i].Score.exam2 + Students[i].Score.exam3;

     end;

   if (Students[i].Score.exam1 = 5) and (Students[i].Score.exam2 = 5) and (Students[i].Score.exam3 = 5) then

    inc(goodStud);

   if (Students[i].Score.exam1 <= 2) or (Students[i].Score.exam2 <= 2) or (Students[i].Score.exam3 <= 2) then

    inc(badStud);

 end;

 midScore1989:= students1989ScoreSum / students1989Count;

 writeln;

 writeln('Средний студентов 1989 года рождения и старше: ',midScore1989:3:1);

 writeln('Количество отличников: ',goodStud);

 writeln('Количество задолжников: ',badStud);

end.

PascalABC

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

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

Ввести с клавиатуры массив из 5 элементов, найти сумму и произведение элементов этого массива. пример: введите пять чисел : 4, 15, 3, 10, 14 среднее арифметическое: 9, 200
Ваше имя (никнейм)*
Email*
Комментарий*

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

Zhanna417
beyound2006193
devochkadafka624
mirsanm26249
ryazantseva
oledrag7
Zhanibekrva Kandaurova
Shevchenko
alexey
Savelieva24
pristav9
Андреевич-Екатерина1974
kiruha0378
verav75
koll23