Программы для решения задач - в прилагаемом файле.
1.1
2.4
3.3
я точно не уверен в 3 задании незочто
Как я понял, нужно определить четные элементы массива.
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.
#include "iostream"
#include "stdlib.h"
#include "locale.h"
using namespace std;
int main(){
setlocale(LC_ALL, "russian");
const int N = 10;
int A[N];
for(int i = 0; i < N; i++){
cout << "Ââåäèòå [" << i << "] ýëåìåíò: "; cin >> A[i];
}
cout << "Ìàññèâ äî îáðàáîòêè" << endl;
for(int i = 0; i < N; i++){
cout << "Ýëåìåíò [" << i << "] = " << A[i] << endl;
}
for(int i = 0; i < (N/2); i++){
int temp = A[i];
A[i] = A[N-i-1];
A[N-i-1] = temp;
}
cout << "Ìàññèâ ïîñëå" << endl;
for(int i = 0; i < N; i++){
cout << "Ýëåìåíò [" << i << "] = " << A[i] << endl;
}
system("pause");
return 0;
}
Program ARIFMETIK;
var
a,b,c:real;
Z:char;
begin
Writeln ('Введи первое число'); Readln (a);
Writeln ('Введи второе число'); Readln (b);
Writeln ('Введи значок операции'); Readln (z);
case z of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
end;
if z='/' then
if b<>0 then c:=a/b
else Writeln ('Деление невозможно')
else Writeln(a:0:2,z,b:0:2,'=',c:0:2);
end.