//PascalABC.NET
//Дан целочисленный массив из 40 элементов. Элементы массива могут
//принимать значения от -10000 до 10000. Написать алгоритм, который
//находит и выводит среднее арифметическое всех отрицательных элементов
//массива, оканчивающихся цифрой 7. Гарантируется, что хотя бы один
//такой элемент в массиве есть. Исходные данные объявлены так, как
//показано ниже. Запрещается использовать переменные, не описанные
//ниже, но разрешается не использовать часть из них.
const
N = 40;
var
//a : array[1..N] of integer;
i, s, r, x : integer;
sr: real;
begin
//Для любителей заполнять вручную:
//for i := 1 to 40 do readln(a[i]);
//Заполним массив 40-ка случайными значениями
var a := ArrRandomInteger(N+1, -10000, 10000);
//Гарантировано разместим число, оканчивающееся на 7
a[Random(0,40)] := -10 * Random(0,999) - 7;
//Уберем лишний элемент, созданный автоматически
a[0] := 0;
//Напечатаем массив
a.println;
writeln('----------------');
//Просмотрим весь массив и найдя отрицательное, оканчивающееся на 7
//число, учтём его
foreach i in a do
if (i < 0) and (i mod 10 = -7) then begin
r += i; s += 1; write(i,' ')
end;
//Выведем среднее арифметическое
writeln('Ср.ар: ',r/s)
end.
#include<iostream>
#include<cstdlib>
#include<locale>
#include<ctime>
using namespace std;
int main()
{
<span> setlocale(LC_ALL, "Russian");</span>
<span> srand(time(NULL));</span>
<span> int min_value, max_value;</span><span>
int mas[10];</span>
// инициализируем массив случайными числами
<span> for(int i=0; i<10; i++) mas[i] = rand()%100;</span>
<span>
//находим минимальное значение</span><span>
min_value = mas[0];</span><span>
for(int i=0; i<10; i++)</span><span>
if(min_value > mas[i]) min_value = mas[i];</span>
<span>
cout << "Минимально значение: " << min_value << '\n';</span>
<span>
//находим максимальное значение</span><span>
max_value = mas[0];</span><span>
for(int i=0; i<10; i++)</span><span>
if(max_value < mas[i]) max_value = mas[i];</span>
<span> cout << "Максимальное значение: " << max_value << '\n';</span>
<span>
//выводим среднее значение максимального и минимального значение</span><span>
cout << "Среднее значение: " << (double) (min_value+max_value)/2 << '\n';
</span><span>}</span>
Збс, клевое задание................
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
