М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dashutkazel1221
dashutkazel1221
19.04.2022 11:27 •  Информатика

Водномерном массиве найти среднее арифметическое элементов массива(написать программу на паскале)

👇
Ответ:
анг36
анг36
19.04.2022
Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/N);
End.

Пример:

Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
4,4(62 оценок)
Открыть все ответы
Ответ:
BlaSta
BlaSta
19.04.2022

<h1>Таблица</h1>

<div style="margin-left: 30%;margin-bottom: 100px;">

<form action="" method="POST">

<table>

<tr><td>

           <label for="surname">Фамилия:</td><td><input type="text" name="surname" id="name" value="<?php echo $surname; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="name">Имя:</td><td><input type="text" name="name" id="name" value="<?php echo $name; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="patronymic">Отчество:</td><td><input type="text" name="patronymic" id="patronymic" value="<?php echo $patronymic; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="age">Дата рождения:</td><td><input type="text" name="age" id="age" value="<?php echo $age; ?>"></label> </td>

           </tr><tr>

           <td>

          <label for="phone">Телефон:</td><td><input type="text" name="phone" id="phone" value="<?php echo $phone; ?>"></label></td>

           </tr><tr>

           <td>

         <label for="gender">Пол:</td><td><input type="text" name="gender" id="gender" value="<?php echo $gender; ?>"></label>

           </tr><tr>

           </td>

           <label for="address">Баланс:</td><td><input type="text" name="balance" id="balance" value="<?php echo $balance; ?>"></label>                        </td>

          </tr><tr>

             <label for="address">Скидка:</td><td><input type="text" name="discount" id="discount" value="<?php echo $discount; ?>"></label></td>

          </tr><tr>

<label for="address">Бонус:</td><td><input type="text" name="bonus" id="bonus" value="<?php echo $bonus; ?>"></label></td>

       </table>

       <input type="hidden" name="id" value="<?php echo($id);?>">

       <input type="submit" value="<?php echo($button);?>">

       </form>

Длина символов строки и маска для номера задается в SQL server.

4,5(82 оценок)
Ответ:
Skillet121516
Skillet121516
19.04.2022
Задача 1

const N=30;
var a: array [1..N] of integer;
i,j,s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i]>99)and(a[i]<1000) then
if (a[i] mod 2)<>0 then
begin
s:=s+a[i];
j:=j+1;
end;
if j=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j);
end.

задача 2

const N=40;
var a: array [1..N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
x:=abs(a[1]);
for i:=1 to N do
if (a[i]>0)and((a[i] mod x)=0) then
begin
y:=y+1;
s:=s+a[i];
end;
if y=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y);
end.

задача 3

const N=30;
var a: array [1..N] of integer;
i,s,m: integer;
begin
for i:=1 to N do readln(a[i]);
m:=a[1];
for i:=2 to N do
if a[i]>m then m:=a[i];
for i:=1 to N do
if a[i]=m then s:=s+1;
if s=1 then writeln('в массиве только один максимальный элемент')
else writeln('число элементов, равных максимальному: ',s-1);
end.
4,7(92 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ