Блок-схема. program Odnomer_massiv;

Текст программы:

program Odnomer_massiv;

{$APPTYPE CONSOLE}

uses

SysUtils;

const

Nmax=20;

var

i,N,k:integer;

S,sr:real;

a: array [1.. Nmax] of real;

begin

writeln('vvedite kolichestvo elementov massiva');

readln(N);

for i:=1 to N do

begin

writeln('Vvedite ',i,' element massiva');

readln(a[i]);

end;

S:=0;

k:=0;

for i:=1 to N do

begin

if a[i]>0

then

begin

inc(k);

S:=S+a[i];

end;

end;

if k>0 then

begin

sr:=S/k;

writeln('Srednee arifmeticeskoe vseh polojitel`nih elementov massiva= ',sr:0:3)

end

else writeln(‘Net polojitel`nih elemenrov’);

readln;

end.








Дата добавления: 2015-04-10; просмотров: 811;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.