задан массив из 10 элементов посчитать число и сумму положительных элементов в нем, вывести исходный и полученный массивы,в паскале

Николай Т.
  · 2,0 K
Знаю не много, ни мало.
  1. var
  2. i, kp, kn, s: Integer;
  3. p: Real;
  4. ...
  5. p:=1;
  6. for i:=1 to n do begin
  7. if a[i]>0 then begin Inc(kp); s:=s+a[i]; end;
  8. if a[i]<0 then begin Inc(kn); p:=p*a[i]; end;
  9. end;
  10. WriteLn('kp=',kp,' sp=',s,' kn=',kn,' pn=',p:0:0);
  11. end.

как то так

29 мая 2019  · 1,5 K
Комментировать ответ…
Ещё 2 ответа
Алгоритм составления массива из 10 элементов: 1. Заполняем массив, учитываем имя переменной sum=0. 2. Используем значок For.С помощью него мы посмотрим на каждый элемент массива. 3. Кнопка if поможет нам узнать, имеет ли наш массив положительную величину. 4. Если третий пункт выполняется, то добавим значение массива к sum 5. Выводим sum. 6. Теперь... Читать далее
29 мая 2019  · 636
Комментировать ответ…
Вы знаете ответ на этот вопрос?
Поделитесь своим опытом и знаниями
Войти и ответить на вопрос
Читайте также

С помощью какого оператора осуществляется ввод данных с клавиатуры в паскаль?

Elena S.3,2K
Родилась в Нижнем Новгороде, волей судьбы оказалась в Москве. Мама двоих детей...

Таких операторов два: read и readln.

Readln - считывает данные в переменную и переводит "каретку" на новую строку.

Read - считывает данные и не переводит каретку.

9 февраля 2019  · 4,6 K
Прочитать ещё 1 ответ

Сформировать двумерную матрицу размером NxN в диап[-10;10] найти макс и мин элемент массива ,указать какое кол-во раз они встреч. в массиве?

Автор видеоуроков для подготовки к ЕГЭ по информатике  · youtube.com/c/ИнформатикБУ

Паскаль.

const N = 5;

var

a: array[1..N, 1..N] of integer;

i, j, max, min, cmax, cmin: integer;

begin

randomize;

//заполняем матрицу

for i:=1 to N do

for j:=1 to N do

a[i,j] := random(21)-10;

//находим минимум и максимум

max := a[1,1]; min := a[1,1];

for i:=1 to N do

for j:=1 to N do begin

if (a[i,j]>max) then

max := a[i,j];

if (a[i,j]<min) then

min := a[i,j];

end;

//находим количество минимумов и максимумов

cmin := 0; cmax := 0;

for i:=1 to N do

for j:=1 to N do begin

if (a[i,j]=max) then

inc(cmax);

if (a[i,j]=min) then

inc(cmin);

end;

//выводим результат

writeln('Максимум: ', max);

writeln('Минимум: ', min);

writeln('Кол-во максимальных: ', cmax);

writeln('Кол-во минимальных: ', cmin);

end.

Если формулу Эйлера возвести в квадрат и прологарифмировать, то можно показать, что мнимая единица может быть равна и нулю?

Логарифм — функция многозначная в комплексной плоскости, а поэтому при логарифмировании обеих частей какого-либо равенства, разумеется, равенство может прекратить существование.

22 ноября  · < 100
Прочитать ещё 3 ответа

Какой индекс имеет последний элемент массива a? a = [8]*6?

Темы: дом и быт, точные и естественные науки, компьютеры, электроника...

Если имеется в виду язык Python, то последний элемент будет иметь индекс 5, т.к. задан массив длиной 6, а нумерация индексов начинается с 0.

Если человек не может написать алгоритм сортировки чисел массива, то ему нечего делать в программировании?

Видеограф, студент по профилю "Информационная безопасность"

Сортировки массивов это конечно азы, но можно ли утверждать, что человеку ничего не светит в программировании, если он не знает азов? Всегда есть возможность самосовершенствования. Мой ответ - нет, шансы есть.

Прочитать ещё 1 ответ