using System;
using System.Linq;
namespace Prog
{
public class Program
{
public static void Main(string[] args)
{
Random rnd = new Random();
int len = rnd.Next(5,30);
int[] A = new int[len];
for (int i = 0; i < len; i++)
A[i] = rnd.Next(-50, 50);
Console.WriteLine("{0}", string.Join(" ", A));
var B = Array.FindAll(A, i => i >= A[Array.IndexOf(A, A.Max())-1]);
foreach (int i in B)
Console.Write(i+" ");
}
}
}
x1 x2 x3 x1 и не x2 и x3 x1 и x2 и не x3 не x3
0 0 0 0 0 1
0 0 1 0 0 0
0 1 0 0 0 1
0 1 1 0 0 0
1 0 0 0 0 1
1 0 1 1 0 0
1 1 0 0 1 1
1 1 1 0 0 0
F(1,1,0)=1,F(1,0,1)=1,F(1,0,0)=1,F(0,1,0)=1,F(0,0,0)=1
Const max=18;
var i,k:byte;
ar:array [1..max] of integer;
s:integer;
begin
writeln('Начальный массив случайных чисел в диапазоне [0,30)');
for i:=1 to max do begin
ar[i]:=random(0,29);
write(ar[i]:6);
end;
k:=0;
s:=0;
for i:=1 to max do begin
if ar[i]>15 then
k:=k+1;
if not odd(ar[i]) then
s:=s+ar[i];
end;
writeln();
writeln('Задание 1. ', 'k=', k);
writeln('Задание 2. ', 's=', s);
end.
Uses crt;var i,s:integer; a:array [1..100] of integer;
beginfor i:=1 to 4 do begin writeln ('vvedite massiv');readln(a[i]);end;for i:=1 to 4 do begin s:=s+a[i];end;writeln(s,' ');end.
-Текстовая
-Числовая
-Графическая
-Звуковая
-Видеоинформация