Var
p:array [1..4,1..5] of integer;
i,j,k:integer;
begin
for i:= 1 to 4 do
begin
for j:=1 to 5 do
begin
p[i,j]:=Random(-100,100);
write(p[i,j]:5);
end;
writeln;
end;
for i:= 1 to 4 do
begin
k:=0;
for j:=1 to 5 do
if p[i,j]>0 then k:=k+1;
writeln ('Количество положительных элементов в строке ',i,' равно: ', k);
end
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;
}
Это средство копирования данных с одного обьекта на другой или же передача информационо физического процесса, посредством которого осуществляется перемещение информации в пространстве.
Данный процесс характерезуеться наличием таких компонентов как :
1.Источник информации ;
2.Носитель информации ;
3.Среда передачи .
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>
A=1; b=1
1 шаг цикла: a=a+1=1+1=2; b=b*2=1*2=2; 2>8 ⇒ false
2 шаг цикла: a=a+1=2+1=3; b=b*2=2*2=4; 4>8 <span>⇒ false
</span>3 шаг цикла: a=a+1=3+1=4; b=b*2=4*2=8; 8>8 <span>⇒ false
</span>4 шаг цикла: a=a+1=4+1=5; b=b*2=8*2=16; 16>8 <span>⇒ true
s=a+b=5+16=21
</span>Ответ: тело цикла выполнится 4 раза, a=5, b=16, s=21
