uses crt;
var
ar: array[1..19]of integer;
i, mul, sum, count, min, mini: integer;
begin
count := 0;
sum := 0;
mul := 1;
randomize;
for i := 1 to 19 do
begin
ar[i] := random(13) - 6;
mul := mul * ar[i];
if(ar[i] mod 2 = 0) then
begin
textbackground(green);
sum := sum + ar[i];
count := count + 1;
end;
if(ar[i] = 5) then
textbackground(red);
write(ar[i], ' ');
textbackground(black);
end;
writeln();
writeln('Произведение всех элементов массива = ', mul);
writeln('Сумма четных чисел = ', sum, ', количество = ', count);
min := ar[1];
mini := 1;
write('Номера элементов, равных 5: ');
for i := 1 to 19 do
begin
if(ar[i] = 5) then
write(i, ' ');
if((ar[i]) < min) then
begin
min := ar[i];
mini := i;
end;
end;
writeln();
writeln('Минимальный элемент = ', min, ', его номер = ', mini);
end.
#include<iostream.h>
int main(void)
{
float x;
cout >> "Задайте число х";
cin >> x;
If ((x%2)==0)
{
x=x*x;
}
else
{
x=x*x*x;
}
cout << x;
return 0;
}
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b,c):=ReadReal3('Введите через пробел три числа:');
if a*b*c<>0 then Writeln((a+b+c)/3)
end.
<u>Пример</u>
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333
Оперативная память : ddr2, ddr3
Архиватор : zip, 7z
Антивирусная рограмма: DrWeb, Antivirus Kasperski
Коммуникационная программа: Skype
Система программирования: Basic, Pascal
Текстовый редактор: WordPad, MS Word
Графический редактор: Paint, Photoshop
Редактор презентаций : MS PowerPoint
Электронные таблицы: MS Excel
Электронное учебное издание(учебники , тренажер , энциклопедия...) : Kirill and Mefodi
Игра : Leniage