Регистрация
Винчестерvika
04.12.2020 04:09
Информатика
Есть ответ 👍

1) задан массив из n чисел. найти среднее арифметическое. 2) найти номер наибольшего элемента массива размером мхn.

161
431
Посмотреть ответы 2

Ответы на вопрос:

Jisbihish
Jisbihish
4,4(43 оценок)
1) задан массив из n чисел. найти среднее арифметическое. var a: array[1..99999] of integer;   i,n,summa: integer;   srednee: real;   begin  writeln('введите размерность массива'); readln(n);   for i: =1 to n do  begin  writeln('введите ',i,' элемент массива: '); readln(a[i]);   summa+=a[i];   end;   srednee: =summa/n;   writeln('среднее арифметическое: ',srednee);   end. 2) найти номер наибольшего элемента массива размером мхn.var a: array[1..99999, 1..9999] of integer;   m,n,i,i2,max,n1,n2: integer;   begin  writeln('введите длину массива m: '); readln(m);   writeln('введите ширину массива n: '); readln(n);   for i: =1 to m do  begin  for i2: =1 to n do  begin  writeln('введите элемент массива: '); readln(a[i,i2]);   if a[i,i2]> max then  begin  max: =a[i,i2];   n1: =m;   n2: =n;   end;   end;   end;   writeln('номер максимального элемента массива: ', n1, ' столбец ',n2, ' строка');   end.
shmkvnst17
shmkvnst17
4,5(86 оценок)
Sub f1() dim a, b, c, d, cord, x1, x2 as single a = inputbox(" x^2") b = inputbox(" x") c = inputbox(" свободный") d = 0 d = (b * b) - 4 * a * c if d < 0 then msgbox ("решений нет") cord = sqr(d) x1 = (-b + cord) / (2 * a) x2 = (-b - cord) / (2 * a) if d = 0 then msgbox cstr(x1) msgbox ("корни квадратного уравнения равны " + cstr(x1) + "и" + cstr(x2)) end sub

Популярно: Информатика