В задаче используется массив, элементами которого являются числа: 3, 34, -16, 0, 105, -8, 27, 34, 506, -28. Какая из предложенн
дмитрий к-
2. <span>A: array[1..10] of integer;
byte только целые положительные</span>
var
i, max:integer;
c: array[1..10] of integer;
begin
for i:=1 to 10 do
read(c[i]);
max:=c[1];
for i:=2 to 10 do
if (c[i]>max) then max:=c[i];
write(max);
end.
Допустим анна сказала правду про сына ирины(получаем сын ирины кирилл)
ирина:кирилл сын анны неверно то есть сын ирины максим
ольга:сын анны максим неверно потому что максим сын ирины
Получаем Анна Денис
Ирина максим ольга кирилл
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.
#include <iostream>
using namespace std;
int main()
{
int n,k,i;
int array[100];
cin >> n;
for(i=0; i<n; i++)
{
cin >> array[i];
}
cin >> k;
for(i=0; i<n; i++)
{
if (k == array[i]){ break;}
}
if (k==array[i]) cout << i+1;
else cout << 0;
system("pause");
return 0;
}