var
a: array [1..18] of integer;
y: boolean := false;
begin
for var i: integer := 1 to 18 do
Readln(a[i]);
for var i: integer := 1 to 18 do
if(a[i] = 19) then
begin
y := true;
break;
end;
if y then Writeln('Yes')
else Writeln('No');
end.
<h2>Заменить нечётные элементы по значению</h2>
program raf105;
var
a:array[1..20] of integer;
i,min: integer;
begin
min:= 10000;
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:= random(-30,20);
writeln(a[i]);
if a[i]<min
then min:= a[i];
end;
writeln('Изменённый массив:');
for i:=1 to 20 do
begin
if (a[i] mod 2)<>0
then a[i]:= min;
writeln(a[i]);
end;
end.
<h2>Заменить нечётные элементы по индексу</h2>
program raf105;
var
a:array[1..20] of integer;
i,min: integer;
begin
min:= 10000;
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:= random(-30,20);
writeln(a[i]);
if a[i]<min
then min:= a[i];
end;
writeln('Изменённый массив:');
for i:=1 to 20 do
begin
if (i mod 2)<>0
then a[i]:= min;
writeln(a[i]);
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;
bool StrangeSeq(int n){
if (k<n){
if(n%k==0){
cout<<"false";
return false;
}
k++;
StrangeSeq(n);
}
else
{
cout<<"true";
return true;
}
}
int main(){
int n;
cin>>n;
StrangeSeq(n);
cin.get();
cin.get();
<span>}</span>
"Слияние слоев" -photoshop
"Закрепить слои" -corel
