с клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на ...

October 2021 1 8 Report

с клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на экран все элементы массива.которые стгят на не четных номерах и найти их сумму

Answers & Comments

NiGhtWolFs Const n=5;
var a:array[1..n] of integer;
i,p:integer;
begin
for i:=1 to n do
begin
write ('Введите ',i,' элемент массива: ');
readln (a[i]);
end;
WRITELN;
write ('Массив: ');
for i:=1 to n do
if i mod 2 <> 0 then
begin
write (a[i],' ');
p:=p+a[i];
end;
WRITELN;
write ('Сумма = ',p);
end.

1 votes Thanks 0

Answers & Comments

vychislit summu naturalnyh chiselkratnyh 3menshuyu 100paskal

dany tri chislaab i c najti raznost naibolshego i naimenshego iz nih

dany tri chislaab i copredelite znacheniya naimenshego iz nih

vychislit znacheniya funkcii paskal srochno nuzhen otvet

sostavit 5 voprosov k 9 10 glaveproizvedenie ubityj pod moskvoj

postrojte grafik funkcij55d8539250e7128253bb6867c5254bfc 75956

po zadannomu vremeni t ukazhite vremya sutokutrodenvechernoch

dano chislo aesli ono odnoznachnoeto umnozhit ego na 3esli trehznachnoe razdel

najti storony pryamougolnika esli odna bolshe drugoj na 14 sma diagonal rovna

s klaviatury vvodetmya massia iz n celyh chiselsostavit programmu i vyvesti nae5837fe371f172a433dea5f680f99d14 76465

рекомендуемые вопросы

Helpful Links

Helpful Social