Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>
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+" ");
}
}
}
Чуваааак, или чувииииха, ну это зашквар, Excel не знать - не зашквар, но не открыть и не посмотреть... Стыдно товарищи, стыдно!
1Б, 2В, 3А, 4Г.
<span>а) E2 -- =($C$3+C$5)/D4</span>
<span>б) E7
-- =($C$3+C$5)/D9</span>
<span>в) C6
-- =($C$3+A$5)/B8</span>
<span>г) F10
- =($C$3+D$5)/E12</span><span> </span>