#include <iostream>
using namespace std;
int main(){
int max,k,n,nod,p;
int ar[1000];
cin>>n;
for(int i=0;i<n;i++){
cin>>ar[i];
}
max=ar[0];
for(int i=1;i<n;i++){
if(ar[i]>max){
max=ar[i];
k=1;
nod=1;}
}
while(k!=max){
k++;
p=0;
for(int i=0;i<n;i++){
if(ar[i]%k==0){
p++;}}
if(p==n){
nod=k;}
}
cout<<"NOD="<<nod;
cin.get();
cin.get();
return 0;
<span> }</span>
Объяснение:
n = int(input())
for i in range(n) :
vvod = int(input())
if vvod > 0:
res1+=vvod
else:
res2*=vvod
print(res1, res2)
Проверь этот код, так как я его не проверял
Конечно, может и не заработать, но вроде всё в порядке
var a,b,c,d,e,f,g:real;
begin
readln(a,b);
c:=a+b;
d:=c*c;
e:=b*b*b;
f:=a-d-e;
g:=sin(a);
writeln(f/g);
readln;
end.
Блок схемы нарисовал бы, но не с компа сижу
Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
Var
S, C, Cmax: string;
i, j, k, max: integer;
Begin
Write('Введите предложение: ');ReadLn(S);
S := UpperCase(S) + '.';
max := 0;
i := 1;
while (i <= Length(S)) do
begin
C := '';
while (S[i] in ['А'..'Я']) do
begin
C := C + S[i];
i += 1;
end;
k := 0;
For j := 1 to Length(C) do
if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
k := k + 1;
if (k > max) then
begin
max := k;
Cmax := C;
end;
i += 1;
end;
WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ