Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
int S = 0, i;
for(i = 1; S<50; i++)
S+=i;
printf("S = %d",S);
getch();
}
for k:- 2 to 10 do
if Dat(k) > m then
begin
m :- Dat (k):
day :- k;
end;
Тут мы ищем максимальный элемент и запоминаем его позицию в переменной дей
самые большие в массиве-это шестерки
И первая шестерка имеет номер 9, значит ответ:9
Const N = 10;
var im, i, ie: Integer;
A: array [0..N] of Integer;
begin for i := 0 to N do
A[i] := random(99);
im := A[0];
for i := 0 to N do
if (A[i] > im) then
begin
im := A[i];
ie := i;
end;
writeln(ie);
<span>end.
==========================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then ie := i;
writeln(ie);
<span>end.
================================
const N = 10;
var im, i, ie, ib: Integer;
A: array [0..N] of Integer;
begin
readln(im);
for i := 0 to N do
A[i] := random(15);
for i := 0 to N do
if (im = A[i]) then
begin
ie := i;
break;
end;
writeln(ie);
<span>end.
================================
Вот, прошу:) Тут полезно знать, что вначале массив заполняется случайными числами во всех примерах, вдруг спросят</span></span></span>