Помогите в задаче по информатике!!!
Даны 10 натуральных чисел. Если среди них есть 0 - вывести надпись "Ура! "
Очень прошу, помогите!
Самый легкий и самый краткий на Visual Basic .NET или C#
(Какая разница - автор вопроса ЯП не указала...)
var
a:array[1..10] of real;
i:integer;
begin
For i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]=0 then a[10]:=0;
If a[10]=0 then write ('УРА! ');
end.
вот вариант полегче
То есть не на каждый 0 выводить, а если он в принципе есть?
Перемножить все элементы масивва последовательно - если результат=0 - УРА!!!!
Оригинальное решение! Класс! :)))
на языке паскаль?
program v1;
var
a:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 10 do
begin
if a[i]=0 then writeln('УРА') else writeln('ГРУСТЬ');
end;end.
Сравнить все числа с нулём. Всё.