нужно вынуть зернышко из мешка с надписью "смесь"..мы уже знаем,что мачеха поменяла ВСЕ таблички..это означает,что ни одна табличка не соответствует действительности)
предположим,что из мешка с надписью смесь мы достаем зерно проса..значит в мешке с надписью "просо" лежит уже не просо,а мак..а в мешке с надписью "мак"лежит смесь..
Привет, перейди в Пуск, введи название программы и рисуй на здоровье)
#include <iostream>
using namespace std;
int main()
{
<span> int a[15];
</span><span> int i = 0;
</span><span> int sum = 0;
</span><span> for (; i < 15; i++)
</span> cin >> a[i];
for (i = 14; (i != 0) && (a[i]>0); i--) <span>
sum += a[i];</span>
cout << "i = " << i+1 << endl;
<span> cout << "summa = " << sum << endl;
</span><span> return 0;
</span>}
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(15).println;
a.Sorted.println.SortedDescending.println;
end.
Тестовое решение:
17 75 17 71 20 86 10 45 10 78 99 11 16 33 20
10 10 11 16 17 17 20 20 33 45 71 75 78 86 99
99 86 78 75 71 45 33 20 20 17 17 16 11 10 10