Using System; public class Test { public static void Main() { int n=10; int[] a=new int[n]; int f=0; Random rnd=new Random(); Console.Write("исходный массив: "); for(int i=0;i<n;i++) { a[i]=rnd.Next(1,10); Console.Write(a[i]+" "); } for (int i=0;i<n;i++) { if(a[i]%2==0){f=1; break;} else{f=0;}
} if(f==1){Console.WriteLine("В массиве имеется хотя бы 1 четное число");} else {Console.WriteLine("В массиве нет четных чисел");} } }
1) uses crt; var a:array [1..15] of integer; i,k:integer; begin randomize; k:=0; for i:=1 to 15 do begin a[i]:=random(10)-3; if (a[i]<0) then inc(k); write (a[i],' '); end; writeln; writeln (k/15*100,'%'); end.
2) uses crt; var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(30); write (a[i],' '); end; writeln; for i:=1 to 20 do if (a[i] mod 10 = 3) then write (a[i],' '); end.
3) uses crt; var a:array [1..20] of integer; i:integer; k:longint; begin randomize; k:=1; for i:=1 to 20 do begin a[i]:=random(30); write (a[i],' '); if (a[i]>9) and (a[i]<100) then k:=k*a[i]; end; writeln; writeln (k); end.
4) uses crt; var a:array [1..30] of integer; i:integer; flag:boolean; begin randomize; for i:=1 to 30 do begin a[i]:=random(30); write (a[i],' '); end; writeln; flag:=true; for i:=1 to 29 do if (a[i]>a[i+1]) then begin flag:=false; break; end; writeln (flag); end.
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
public class Test
{
public static void Main()
{
int n=10;
int[] a=new int[n];
int f=0;
Random rnd=new Random();
Console.Write("исходный массив: ");
for(int i=0;i<n;i++)
{
a[i]=rnd.Next(1,10);
Console.Write(a[i]+" ");
}
for (int i=0;i<n;i++)
{
if(a[i]%2==0){f=1; break;} else{f=0;}
}
if(f==1){Console.WriteLine("В массиве имеется хотя бы 1 четное число");} else {Console.WriteLine("В массиве нет четных чисел");}
}
}