Program z1; Var a: array [1..100] of integer; n,i:integer; s:real; Begin write('Введите кол-во учеников - '); readln(n); for i:=1 to n do begin write ('Ученик №',i,', Оценка - '); readln(a[i]); end; s:=0; for i:=1 to n do begin s:=s+a[i]; end; s:=s/n; writeln('Средний балл - ',s);<span>End.</span>
#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;
int main()
{
srand(time(0));
int N;
cout << "N = ", cin >> N;
int A[N];
cout << "A("<<N<<"):";
for(int i = 0; i < N; i++)
cout <<" "<< (A[i] = rand() \% (N*2+1) -N);
int M, B = 0;
cout <<"\nM = ", cin >> M;
for(int i = 0; i < N; i++)
if (A[i] == M) B = 1;
cout << (B?"DA":"NET");
return 0;
}
Program anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
<span>end.</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 15);
a.Where(t -> t mod 7 = 3).Println();
end.
В 17 веке( 1623 год) ▬ немецкий учёный Вильгельм Шиккард изобрёл " Считающие часы ".