var
a: array [1..12] of integer; //массив, состоящий из 12 целых чисел
i: integer;
begin
for i: = 1 to 12 do //вводим элементы массива
begin
writeln('введите а[', i, ']');
readln(a[i]);
end;
write('исходный массив: ');
for i: = 1 to 12 do {распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]: = 5;
end;
writeln;
write('измененный массив: ');
for i: = 1 to 12 do //распечатываем измененный массив
write(a[i], ' ');
writeln; {переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
если все правильно, отметь решение как лучшее)
1."солнце" - круг с точкой в центре
"идти" - две ноги
"хлеб" - полукруг
"рот" - сильно вытянутый полуовал
2.во времена древнего, среднего и нового царств количество иероглифов приблизительно равнялось 800, a в греко римский период их число превысило 6000 иероглифов.
3. в древнем египте наряду со значками , обозначавшими целые понятия и слова, существовали и другие знаки, обозначавшие слоги и даже отдельные звуки . потребность в таких знаках очевидна, так как не все можно выразить в виде изображений (прежде всего, это касается личных имен). в этих случаях египтяне превращали слова иероглифы в буквы иероглифы, из которых и составлялись слова, подлежащие передаче на письме согласно их звучанию. например иероглиф «хт» — изображение дома — сделался двухбуквенным иероглифом, обозначающим звук [хт], иероглиф «мн» — изображение шахматной доски — стал иероглифом, обозначающим два звука [мн] и т.д. на первых порах значение фонетических иероглифов было , но со временем их роль все более возрастала, и в последние века существования египетской письменности значение фонетических иероглифов стало господствующим. но к чисто фонографическому письму (то есть такому, где каждый знак обозначает отдельный звук или букву) египтяне так и не перешли . это важное усовершенствование было сделано в письме других народов.
Поделитесь своими знаниями, ответьте на вопрос:
Как сделать эту в экселе, подскажите / ms office excel задан массив b1, b2, b3, … bn. все элементы, равные 7 заменить единицей и подсчитать количество таких элементов. заранее большое