Дисциплина «информатика»
вариант 5
тема «основные информационные процессы и их реализация с компьютеров»
1.
имеется четыре произвольных числа (а,в,с,d). составить программу на
алгоритмическом языке программирования, анализирующую эти числа и отвечающую
на вопрос: правда ли, что все числа равны между собой?

1.

program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;

writeln(' ',sum);

end.

2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 

3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;

writeln(' ',naib);

end.

#include<iostream>

#include<conio.h>

using namespace std;

int main() {

const int n = 5;

float arr[n],A=0.0,B;

for (int i = 0;i < n;i++) {

 cin >> arr[i];

}

B = arr[0];

for (int i = 0;i < n;i++) {

 if (arr[i] > A) {

  A = arr[i];

 }

 if (arr[i] < B) {

  B = arr[i];

 }

}

cout << "A= " << A << endl;

cout << "B = " << B << endl;

cout << " A + B = " << A + B << endl;

cout << " A - B = " << A - B << endl;

_getche();

return 0;

}