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

December 2021 1 11 Report

Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести "NO".
В паскале.

Answers & Comments

StrangeT Const n=15;
var
a: array [1..n] of integer;
i:integer;
p:boolean;
begin
p:=true;
for i:= 1 to n do
begin
    write('Введите A[',i,']: ');
    readln(a[i]);
end;
i:=1;
while p and (i<n) do
begin
    if a[i]+a[i+1]>10 then
      begin
        p:=false;
        writeln;
        writeln('(A[',i,']=',a[i],') + ((A[',i+1,']=',a[i+1],') > 10');
      end;
    inc(i);
end;
writeln;
if p then writeln('NO');
end.

1 votes Thanks 1

Answers & Comments

neobhodimo sostavit programmu s dvumernym massivom dlyazapolneniya dannogo mass

tex nepolnye resheniya budut otpravleny v narushenie

neobhodimo zapolnit dvumernyj massiv kak ukazano zadanii v pascal i otve

najdite postroeniem mestopolozhenie izobrazheniya tochki lezhashej na glavnoj optichesk

vo vlozheniyah nuzhno vychislit kakim to sposobom

vnesti mnozhitel pod znak kornya zadanie bv vo vlozheniyah

sokratit drob zadanie vo vlozheniyah

na kakom rasstoyanii ot linzy s fokusnym rasstoyaniem 10 sm nuzhno postavit predme

sostavit blok shemu so strelochkami k programme program name const n30 var a

sokratite drob zadanie vo vlozheniyah

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

Helpful Links

Helpful Social