#include <iostream>using namespace std; int main() { int a,b,c,d,u; u = 0; cin >> a >> b >> c >> d; if (a<0) { u++; } if (b<0) { u++; } if (c<0) { u++; }if (d<0) { u++; } system("pause"); return 0; }
1) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); s := s * a[i]; end; writeln; writeln(s); end.
2) var a: array[0..100] of integer; i, s, n: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; for i := 1 to n do begin // if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов. // if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. end; writeln; writeln(s); end.
3)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) then s:=a[i]; end; writeln; writeln(s); end.
4)var a: array[0..100] of integer; i, s, n, max: integer; begin writeln('Введите количество элементов в массиве: '); readln(n); for i := 1 to n do begin a[i] := random(10); write(a[i], ' '); end; s:=0; for i := 1 to n do begin if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; end; writeln; writeln(s); end.
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второеое число: '); ReadLn(b); sum_d:=(a div 10) + (b div 10); sum_e:=(a mod 10) + (b mod 10); WriteLn('сумма десятков чисел: ', sum_d); WriteLn('сумма единиц чисел: ', sum_e); end.
Вторая программа.
Program d_and_e;
Var a,b,mult_d1_e2,mult_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); mult_e1_d2:=(a mod 10) * (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end.
Третья программа.
Program d_and_e;
Var a,b,mult_d1_e2,sum_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); sum_e1_d2:=(a mod 10) + (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.
int main() { int a,b,c,d,u;
u = 0;
cin >> a >> b >> c >> d;
if (a<0) { u++; }
if (b<0) { u++; }
if (c<0) { u++; }if (d<0) { u++; } system("pause"); return 0; }