Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.
Цель: дойти до дома
↓
Маша→управляет медведем
↓
Результат: добралась до дома и угостила родных пирожками
Первая часть
Program n_1;
var i:integer; B: array[1..7] of real;
begin
for i:=1 to 7 do begin
read(B[i]);
if B[i]<0 then B[i]:=0;
end;
for i:=1 to 7 do write(B[i]:0:5, ' ');
end.
Вторая часть
Program n_2;
var i:integer; a:real; C: array[1..10] of real;
begin
for i:=1 to 10 do begin
read(C[i]);
end;
a:=C[1];
for i:=1 to 10 do if (C[i]>a) then a:=C[i];
writeln(a:0:10);
end.
#include <iostream>
#include <stdlib.h>
#include <locale>
#include <math.h>
using namespace std;
int main(){
setlocale(LC_ALL,"");
float x=0,y=0;
cout << "Введите х: ";
cin >> x;
if (x<0)
y = 1/x;
else if (x>6)
y = x*x;
else if (0 <= x <= 6)
y = 5*x+7;
cout << "\n y = ";
cout << y;
}
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4